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PREFACE 



WHY BASIC? BASIC is a problem -solving language that is easy to I earn and conversational, and has 
wide application in the scientific, business, and educational communities. It can be used to solve 
both simple and complex mathematical problems from the user's Teletype® and is particularly suited for 
time-sharing . 

In writing a computer program, it is necessary to use a language or vocabulary that the computer 
recognizes. Many computer languages are currently in use, but BASIC is one of the simplest of these 
because of the small number of clearly understandable and readily learned commands that are required, 
its easy application in solving problems, and its practicality in an evolving educational environment. 

BASIC is similar to other programming languages in many respects; and is aimed at facilitating com- 
munication between the user and the computer in a time-sharing system. As with most programming 
languages, BASIC is divided into two sections: 

a . Elementary statements that the user must know to write simple programs, and 

b. Advanced techniques needed to efficiently organize complicated problerrts. 

As a BASIC user, you type in a computational procedure as a series of numbered statements by using 
common English syntax and familiar mathematical notation. You can solve almost any problem by 
spending an hour or so learning the necessary elementary commands. After becoming more experienced, 
you can add the advanced techniques needed to perform more intricate manipulations and to express 
your problem more efficiently and concisely. Once you have entered your statements via the Teletype, 
simply type in RUN or RUNNH . These commands initiate the execution of your program and return 
your results almost Instantaneously. 

SPECIAL FEATURES OF BASIC - BASIC incorporates the following special features: 

a . Matrix Computations - A special set of 13 commands designed exclusively for per- 
forming matrix computations. 



®Teletype is the registered trademark of Teletype Corporation 



b. Alphanumeric Information Handling - Single alphabetic or alphanumeric strings or 
vectors can be read, printed, and defined in LET and IF. . .THEN statements. 
Individual characters within these strings can be easily accessed by the user. Con- 
version can be performed between characters and their ASCII equivalents. Tests can 
be made for alphabetic order. 

c . Program Control and Storage Facilities - Programs or data files can be stored on or 
retrieved from various devices (disk, DECtape, card reader, card punch, high- 
speed paper-tape reader, high-speed paper-tape punch and line printer) . TYie user 
can also input programs or data files from the low-speed Teletype paper-tape reader, 
and output them to the low-speed Teletype paper-tape punch. 

d. Program Editing Facilities - An existing program or data file can be edited by adding 
or deleting lines, by renaming it, or by resequencing the line numbers. The user 
can combine two programs or data files into one and request either a listing of all 

or part of it on the Teletype or a listing of all of it on the high-speed line printer. 

e. Formatting of Output - Controlled formatting of Teletype output includes tabbing, 
spacing, and printing columnar headings. 

f . Documentation and Debugging Aids - Documenting programs by the insertion of 
remarks within procedures enables recall of needed information at some later date 
and is invaluable in situations in which the program is shared by other users. De- 
bugging of programs is aided by the typeout of meaningful diagnostic messages 
which pinpoint syntactical and logical errors detected during execution. 



CHAPTER 1 
INTRODUCTION 



This chapter introdiices the user to PDP-10 BASIC and to its restrictions and characteristics. The best 
introduction lies in beginning with a BASIC program and discussing each step completely. 

1 .1 EXAMPLE OF A BASIC PROGRAM 

The fallowing example is a complete BASIC program, named LINEAR, that can be used to solve a sys- 
tem of two simultaneous linear equations in two variables 

ax + by = c 
dx + ey =* f 

and then used to solve two different systems, each differing firom the above system only in the constants 
c and f . If ae - bd is not equal to 0, this system can be solved to find that 

ce - bf , af - cd 

^ = r-j and y r-; 

ae - bd ' ae - bd 

If ae " bd =" 0, there is either no solution or there are many, but there is no unique solution. Study 
this example carefully and then read the commentary and explanation. (In most cases the purpose of 
each line in the program is self-evident.) 

1P» KFAD A*P*n*Fj 

15 LET G=A*e:-B*DJ 

?P) IF G=0 THFN 65^ 

3H READ C*Fj 

37 LET X=<C*E-B*F)/G^ 

A2 LET Y=(A*F-C*D)/G^ 

55 PRINT X*Y^ 

6P> GO TO 3P>J 

65 PKINT "NO UNItiUF SOLUTION"^ 

7P) DATA \,2,aJ 

m DATA 2 » -1,5 J 

85 DATA 1,3,4^-7J 

9VI END J 
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NOTE 

All sfafemenfs are terminafed by pressing the RETURN 
key (represented in f+iis text by the symbol ^ ) . The 
RETURN key echoes as a carriage return, line feed. 



1 .2 DISCUSSION OF THE PROGRAM 

Each line of the program begins with a line number of 1 to 5 digits that serves to identify the line as a 
Statement. A program is rr«i6^ up of statements. Line numbers serve to specify the order in which 
these statements are to be performed. Before the program is run, BASIC sorts out and edits the program, 
putting the statements into the orders specified by their line numbers; thus, the program statements can 
be typed in any order, as long as each statement is prefixed with a line nurdaer indicating its proper 
sequence in the order of execution . Each statement starts after its line number with an English word 
which denotes the type of statement. Unlike statements, commands are not preceded by line numbers 
and ore executed immediately after they are typed in . (Refer to Chapter 9 for a further description of 
commands.) Spaces and tabs have no significance in BASIC programs or commands, except in menages 
which are printed out, as in line number 65 above. Thus, spaces or tabs may, but need not be, used 
to modify a program and make it more readable. 

With this preface, the above example can be followed through step-by-step. 

10 READ a,r,d>e: 

The first statement, 10, is a READ statement and must be accompanied by one or more DATA statements. 
When the computer encounters a READ statement while executing a program, it causes the variables 
listed after the READ to be given values according to the r\&n.\ available numbers in the DATA state- 
ments. In *'"Is example, we read A in statement 10 and assign the value 1 to it from statement 70 and, 
similarly, with B and 2, and with D and 4. At this point, the available data in statement 70 has been 
exhausted, but there is more in statement 80, and we pick up from it the value 2 to be assigned to E. 

15 LFT G = A*E:-P*D 

Next, in statement 15, which is a LET statement, a formula is to be evaluated. [The asterisk (*) is 
used to denote multiplication .] In this statement, we compute the value of AE - BD, and coll the 
result G. In general , a LET statement directs the computer to set a variable equal to the formula on 
the right side of the equal sign . 

2?^ IF G=f1 THFN 65 

If G is equal to zero, the system has no unique solution. Therefore, we next ask, in line 20, if G is 
equal to zero . 
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^5 PRINT "NO UNIQUE SOLUTION" 

7P) DATA 1>2#4 

PPt DATA 2* -7, 5 

85 DATA l,3*4#-7 

9« FND 



If the compufer discovers a "yes" answer to the quetfion, it is directed to go to line 65, where it prints 
NO UNIQUE SOLUTION . Since DATA statements are not executable statements, the compufer then 
goes to line 90 which tells it to END the program. 

30 HEAD C>F 

If the answer is "no" to the question "Is G equal to zero?", the computer goes to line 30. The com- 
puter is now directed to read the nmxt two entries, -7 and 5, frwm the DATA statements (both arm in 
statement 80) and to assign them to C and F, reip«ctively. The computer is now reody to solve the 

system 

X + 2y = -7 
4x + 2y = 5 

37 LET X=(C*E-B*F)/G 

42 LET Y=(A*F-C*D)/G 

In statements 37 and 42, we instruct the computer lo compute the value of X and Y according to the 
formulas provided, using parentheses to indicate that C*E - B^'^F is calculated before the result is 
divided by G . 

55 PRINT X*Y 

f>(^ GO TO 30 

The computer prints the two values X and Y in line 55. Having done this, it moves on to line 60 where 
it is reverted to line 30. With additional numbers in the DATA statements, the computer is told In 
line 30 to take the next one and assign it to C, and the one after that to F. Thus, 

X + 2y = 1 
4x + 2y = 3 

As before, it finds the solutions in 37 and 42, prints them out in 55, and then is directed in 60 to re- 
vert to 30. 

In line 30, the computer reads two more values, 4 and -7, which it finds in line 85. It then proceeds 
to solve the system 

X + 2y = 4 
4x + 2y = -7 
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and print out tfie solutions. Since there are no more pairs of numbers in the DATA statement available 
for C and F, the computer prints OUT OF DATA IN 30 and stops. 

If line number 55 (PRINT X, Y) had been omitted, the computer would have solved the three systems 
and then told us when it was out of data . If we had omitted line 20, and G were eqva\ to zero, the 
computer would print DIVBION BY ZERO IN 37 and DIVISION BY ZERO IN 42. Had we omitted 
statement 60 (GO TO 30), the computer would have solved the first system, printed out the values of 
X and Y, and then gone to line 65, where it would be directed to print NO UNIQUE SOLUTION. 

The particular choice of line numbers is arbitrary as long as the statements are numbered in the order 
the machine is to follow. We would normally number the statements 10, 20, 30, ,.., 130, so that 
later we can insert additional statements. Thus, if we find that we have omitted two statements 
between those numbered 40 and 50, we can give them any two numbers between 40 and 50 — soy 44 
and 46. Regarding DATA statements, we need only put the numbers in the order that we want them 
read (the first for A, the second for B, the third for D, the fourth for E, the fifth for C, the sixth for 
F, the seventh for the next C, etc .). In place of the three statements numbered 70, 80, and 85, we 
could have written the statement: 

75 DATA 1 *2*4,2>-7#5,l #3*4#-7 

or, more naturally. 



70 DATA 1,2,4,2 

75 DATA -7,5 

80 DATA 1,3 

P5 DATA 4,-7 



to indicate that the coefficients appear in the first data statement and the various pairs of right-hand 
constants appear in the subsequent statements. 

The program and the resulting run is shown below as it appears on the Teletype. 



10 READ A,B,D,F 

15 LET G = A*e:-B*D 

20 IF G=R THEN 65 

30 READ C,F 

37 LET X=(C*E-P*F)/n 

42 LET Y=(A*F-C*D)/G 

55 PRINT X,Y 

60 GO TO 30 

65 PRINT "NO UNIQUE SOLUTION" 

70 DATA 1,2,4 

R0 DATA 2,-7,5 

85 DATA 1,3,4,-7 

«>0 END 

RUN 
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(continued on next page) 



LINFAK 1 1 ;f^3 19-0CT-69 

(1.666667 0.166667 
-3.66667 3.P3333 

OPT OF DATA IN 3(^ 

TIN'F: fl.lfl SFCS. 

NOTE 

Remember to ferminafe all statements by pressing the 
RETURN key. 

After typing the program, we type the command RUN and press the RETURN key to direct the computer 
to execute the program. Note that the computer, before printing out the answers, printed the name 
LINEAR which we gave to the problem (refer to Paragraph 4.1) and the time and date of the computa- 
tion. The message OUT OF DATA IN 30, may be ignored here. However, in some instances, it indi- 
cates an error in the program. The TIME message, printed out at the end of execution, indicates the 
compile and execute time used by the program; this time is slightly dependent upon other fobs being 
processed by the computer and consequently will not be exactly the same each time the same program 
is run. 

1 .3 FUNDAMENTAL CONCEPTS OF BASIC 

BASIC can perform many operations such as adding, subtracting, multiplying, dividing, extracting 
square roots, raising a number to a power, and finding the sine of an angle measured in radians. 

1 ,3.1 Arithmetic Operations 

The computer performs its primary function (that of computation) by evaluating formulas similar to those 
used in standard mathematical calculation, with the exception that all BASIC formulas must be written 
on a single line. The following operators can be used to write a formula. 

Operator ExampI e Meaning 



+ 


A+B 


add B to A 


+ 


+A 


A itself 


- 


A -B 


subtract B from A 


- 


-A 


make A negative 


4r 


A *B 


multiply B by A 


/ 


A/B 


divide A by B 


t 


X t 2 


find X2 /- the symbols t and ** have 
find X^ ^ the same meaning 


** 


X**2 



If we type A + B * C t D, the computer first raises C to the power D, multiplies this result by B, and 
then adds the resulting product to A. We must use parentheses to indicate any other order. For 
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example, if it is ftie product of B and C f+iaf we wanf raised to tfie power D, we must write 

A + (B * C) t D; or if we want to multiply A + B by C to the power D, we write (A + B) * C t D. We 

could add A to B, multiply their sum by C, and raise the product to the power D by writing 

((A + B) * C) t D. The order of precedence is summarized in the following rules. 

a. The formula inside parentheses is evaluated before the parenthesized quantity is 
used in computations. 

b. Normally two operators cannot be contiguous. However the operators + and - 
can follow the operators *, /, **, or t (e.g., *-) . In such a case, the + or 
- tokes precedence over its leading *, /, **, or t. Otherwise: 

c . In the absence of parentheses in a formula, ** and t toke precedence over * 
and /, which take precedence over +and -. 

d . In the absence of parentheses in a formula whose only operators are * and /, 
BASIC performs the operations from left to right, in the order that they are 
read. 

e. In the absence of parentheses in a formula whose only operators are + and -, 
BASIC performs the operations from left to right, in the order that they are 
read. 

The rules tell us that the computer, faced with A - B - C, (as usual) subtracts B from A, and then C 
fnom their difference; fbced with A/fe/C, it divides A by B, and that quotient by C. Given A t B t C, 
the computer raises the number A to the power B and takes the resulting number and raises it to the 
power C. If there is any question about the precedence, put in more parentheses to eliminate possible 
ambiguities. 



1 .3.2 Mathematical Functions 

In addition to these five arithmetic operations, BASIC can evaluate certain mathematical functions. 
These functions are given special three-letter English names. 



Function 



SIN 


(X) 


COS 


(X) 


TAN 


(X) 


COT 


(X) 


ATN 


(X) 


EXP 


(X) 


LOG 


(X), or LN(X), 




or LOGE(X) 


ABS 


(X) 


SQR 


(X) or SQRT(X) 



X interpreted as 
on angle measured 
in radians 



CLOG (X)or LOG10(X; 



Interpretation 

Find the sine of X 

Find the cosine of X 

Find the tangent of X 

Find the cotangent of X 

Find the arctangent of X y 

Find e raised to the X power (e ) 

Find the natural logarithm of X (log to the base e) /^., . , 

j X interpreted 

Find the absolute value of X (I X I) ^ as a 

Find the square root of X ( V^) 1 number 

Find the common logarithm of X (log to the base 10) 



Other functions ore also available in BASIC. They ore described in Chapters 5 (INT, RND, SGN, TIM), 
7 (NUM, DET), 8 (string functions), and 10 (LOC, LOF). In place of X, we may substitute any formula 
or number in parentheses following any of these functions. For example, we may ask the computer to find 
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V 4 + X^ by wriHng SQR (4 + X t 3), or the arctongent of 3X -2e^ + 8 by writing 

ATN (3 * X - 2 * EXP (X) + 8). If the above value of|r) 'S needed, the two-line program can 

be written: 



10 PRINTC5/6) ti 7 

20 END 



and the computer finds the decimal form of this number and prints it out, 



1 .3.3 Numbers 

A number may be positive or negative and it may contain up to eight digits, but it must be exprened 
In decimal form (i .e., 2, -3.675, 12345678, -.98765432, and 483.4156). Tlie following are not 
numbers In BASIC: 14/3 and SQR(7) . The computer can find the decimal expansion of 14/3 or SQR(7) , 
but we may not include either in a list of DATA. We gain further flexibility by using the letter E, 
which stands for: times ten to the power. Thus, we may write .0012345678 as .12345678E-2 or 
12345678E-10 or 1234.5678E-6. We do not write E7 as a number, but write 1E7 to indicate that it is 
1 that Is multiplied by 10 . 



1.3.4 Variables 

A simple (I .e., unsubscrlpted) numeric variable in BASIC is denoted by any letter or by any letter 
followed by a single digit. (Refer to Chapter 3 for a discussion of subscripted numeric variables and to 
Chapter 8 for a discussion of subscripted and unsubscrlpted string variables.) Thus, the computer inter- 
prets E7 as a variable, along with A, X, N5, 10, artd 01 . A numeric variable in BASIC stands for a 
number, usually one that Is not known to the programmer at the time the program is written. Variables 
are given or assigned values by LET and READ statements. The value so assigned does not change until 
the next time a LET or READ statement is encountered with a value for that variable. However, all 
numeric variables are set equal to before a RUN . Consequently, it is only necessary to assign a value 
to a numeric variable when a value other than is required. 

Although the computer does little In the way of correcting during computation, it sometimes helps if an 
absolute value hasn't been Indicated. For example, if you ask for the square root of -7 or the logarithm 
of -5, the computer gives the square root of 7 along with an error message stating that you have asked 
for the square root of a negative number, or It gives the logarithm of 5 along with the error message 
that you have asked for the logarithm of a negative number. 
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1 .3.5 Relational Symbols 

Six other mathematical symbols of relaHon are used in IF-THEN statements where it is necenory to 
compare values. An example of the use of these relation symbols was given in the sample program 
LINEAR. 

Any of the following six stanckird relations may be used: 

Syn4>ol Example Meaning 



= 


A=B 


A is equal fo B 


< 


A<B 


A is less than B 


< = 


A<=B 


A is less than or equal to B 


> 


A >B 


A is gntater than B 


> = 


A >=B 


A is greater than or equal to 


<> 


A OB 


A is not equal to B 



Note that while BASIC outputs its answers with only six places of accuracy, variables and formulas 
may have values accurate to more than six places. If it is desired that result X be checked to only 
N places, the function 

INT (X*l(^tN+.5)/ir-lTN 

should be used . 

1.4 SUMMARY 

Several elementcry BASIC statements have been introduced in our discussions. In describing each of 
these statements, a line number is assumed, and brackets are used to denote a general type. For 
example, [variable] refers to any variable. 

1.4.1 LET Statement 

The LET statement is used when computations must be performed. This command is not of algebraic 
equality, but a command to the computer to perform the indicated computations and assign the answer 
to a certain variable. Each LET statement is of the form: 

LET [variable] = [formula] 
or 

[variable] = [formula] 

Generally, several variables may be assigned the same value by a single LET statement. Examples of 
assigning a value to a single variable are given in the following two statements: 

IHH LFT X=X+1 

959 '.'J7 = (w-X-6t3 )*(Z-A/(A-R)-17) 
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Examples of assigning a value to more tfian one variable are given in tfie following statements: 

50 X = Y3=A(3#1 ) = i The variables X, Y3, and A(3,l) are 

assigned the value 1 . 

9P) LET W:sZ=3*X-4*xt2 The variables W and Z are assigned the 

value 3X-4X2 



1 .4.2 READ and DATA Statements 

READ and DATA statements are used to enter information into the computer. We use a READ statement 
to assign to the listed variables those values which are obtained from a DATA statement. Neither 
statement is used without the other. A READ statement causes the variables listed in it to be given in 
order, the next available numbers in the collection of DATA statements. Before the program is run, 
the computer takes all of the DATA statements in the order they appear and creates a large data block . 
Each time a READ statement is encountered anywhere in the program, the data block supplies the next 
available number or numbers. If the data block runs out of data, the program is assumed to be finished 
and we get an OUT OF DATA message. 

Since we have to read in data before we can work with it, READ statements normally occur near the 
beginning of a program . The location of DATA statements is arbitrary, as long as they occur in the 
correct order. A common practice is to collect all DATA statements and place them just before the 
END statement. 

Each READ statement is of the form: 

READ [sequence of variables] 

Each DATA statement is of the form: 

DATA [sequence of numbers] 

15C5 READ X»Y»Z,X\ ,\?.,Q9 

330 DATA 4#2,1 .7 

340 DATA A. 734E-3*-174. 321 *3. 1415927 

234 HEAD B(K) 

263 DATA 2 13*5*7,9*11,10, 6, 6#4 

IPt READ R(I,J) 

440 DATA -3*5, -9, 2. 37*2. 9876,-437. 234E-5 

450 DATA 2.765* 5.5576* 2.3789E2 

Remember that numbers, not formulas, are put in a DATA statement, and that 15/7 and SQR(3) are 
formulas. Refer to Chapter 3 for a discussion of the subscripted variables. 
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1,4.3 PRINT Statement 

The comnx)n uses of tfie PRINT statement are: 

a . to print out the results of some computations 

b . to print out verbatim a message included in the program 
c . a combination of the hvo 

d . to skip a line. 

The following are examples of a t/pe a.: 

100 PRINT X*SQR(X) 

135 PRINT X*Y*Z* B*B-4*A*C# EXP<A-B) 

The first example prints X, and a few spaces to the right, the square root of X . The second prints 
five different numbers: 

X, Y, Z, B , -^AC, and e 
The computer computes the two formulos and prints up to five numbers per line in this format. 

The fol lowing are exampi es of type b . : 

100 PRINT "NO UNIQUE SOLUTION" 

430 PRINT "X VALUE"* "SINE"* "RESOLUTION" 

500 PRINT X,f^,D 

Line 100 prints the sample statement, and line 430 prints the three labels with spaces between them. 
The labels in 430 automatically line up with the three numbers called for in PRINT statement 500. 

The follo.ving is an example of type c .: 

150 PRINT "THE VALUE OF X IS" X 

30 PRINT "THE SGUARE ROOT OF" X "IS" S(^R(X) 

If the first has computed the value of X to be 3, it prints out: THE VALUE OF X IS 3. If the second 
has computed the value of X to be 625, it prints out: THE SQUARE ROOT OF 625 IS 25. 

The following is an example of type d .: 

25f:) PRINT 

The computer advances the paper one line when it encounters this command. 
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1 .4.4 GO TO Statement 

Tine GO TO stntemenf is used when we want the computer to unconditionally transfer to some statement 
other than the next sequential statement. In the LINEAR problem, we direct the computer to go 
through the same process for different values of C and F with a GO TO statement. This statement is in 
ttie form of GO TO [line number] . 

15(5 GO TO 7 5 

1 .4.5 IF - THEN Statement 

TTie IF - THEN statement is used to transfer conditionally from tfie sequential order of stotements 
according to the truth of some relation. It is sometimes called a conditional GO TO statement. Each 
IF-THEN statem«>nt Is of the form: 

IF [formula] [relation] [formula], THEN [line number] 
The comma preceding THEN is optional and con be omitted. 

The following are two examples of this statement: 

4(? IF SIN<X)<=K' THEN 80 

2^ IF G=0* THEN 65 

The first asks if the sine of X is less than or equal to M, and skips to line 80 if so. The second asks 
if G is equal to 0, and skips to line 65 if so. In each cose, if the answer to the question is no, the 
computer goes to the next line. 

1 .4.6 ON - GO TO Statement 

The IF - THEN statement allows a two-way fork in a program; the ON - GO TO statement allows a 
many-way switch. The ON - GO TO statement has the form: 

ON [formula] , GO TO [line number] , [line number] , . . . [line number] 

The comma preceding the GO TO con be omitted . For example: 

W 01^ X GO TO 1(^(1 > 2P0* 1 5W 

This condition causes the following to occur: 

If X = 1 , the program goes to line TOO, 
If X = 2, the program goes to line 200, 
If X =3, the program goes to line 150 
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In other words^ any formula nxiy occur in place of X, and the instrucHon may contain any number of 
line numbers, as long as it fits on a single line. The value of the formula is computed and its integer 
part is taken . If this is 1 , the program transfers to the line whose number is first on the list; if its 
integer part is 2, the program transfers to the line whose number is the second one, etc. If the integer 
part of the formula is below 1, or larger than the number of line numbers listed, an error message is 
printed. To increase the similarity between the ON - GO TO and IF - THEN instructions, the instruc- 
tion 

75 IF X>5 THEN 200 

may also be written as: 

75 IF X>5 GO TO 200 

Conversely, THEN may be used in an ON - GO TO statement. 

1.4.7 END Statement 

Every program must have an END statement, and it must be the statement with the highest line number 
in the program. 

999 END 
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CHAPTER 2 
LOOPS 



We are frequently interested in writing a program in which one or more portions are executed a number 
of times, usually with slight variations each time. To write a program in such a way that the portions 
of the program to be repeated ore written just once, we use loops. A loop is a block of instructions 
that the computer executes repeatedly until a specified terminal condition is met. 

The use of loops is illustrated and explained by using two versions of a program that performs the 
simple task of printing out the positive integers 1 through TOO together with the square root of 
each. The first version, which does not use a loop, is 101 statements long and reads 



10 PRINT 1 #SOR( 1 ) 
20 PRINT 2>SGR(2) 
30 PRINT 3*SQR(3) 



990 PRINT 99,SQR(99) 
1000 PRINT 100*SQR(100) 
1010 END 



The second version, which uses one type of loop, obtains the same results with far fewer instruc- 
tions (5 instead of 101): 

10 LFT X=l 

20 PRINT X*SGR<X) 

30 LFT X=X+1 

40 IF X<=100 THEN 20 

50 END 

Statement 10 gives the value of 1 to X and initializes the loop . In line 20, both 1 and its square root 
are printed. Then, in line 30, X is increased by 1 , to a value of 2. Line 40 asks whether X is less 
than or equal to 100; an affirmative answer directs the computer back to line 20, where it prints 2 
and V2 and goes to 30. Again, X is increased by 1 , this time to 3, and at 40 it goes back to 20. 
This process is repeated — line 20 (print 3 and V3), line 30 (X =4), line 40 (since 4 < 100, go back 
to line 20), etc . — until the loop has been traversed 100 times. TVien, after it has printed 100 and its 
square root, X becomes 101 . The computer now receives a negative answer to the question in line 40 
(X is greater than 100, not less than or equal to it) , does not return to 20 but moves on to line 50, and 
ends the program. All loops contain four characteristics: 
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a. inifiallzafion (line 10) 

b. tfie body (line 20) 
moHffi cation (line 30) 

d. an exit fe$f (line 40) 

2.1 FOR AND NEXT STATEMENTS 

BASIC provides two statements to specify a loop: the FOR shatement and the NEXT statement. 

10 FOR X=l TO 100 

20 PRINT X,SQR(X) 

30 NEXT X 

50 END 

In line 10, X is set equal to 1, and a test is executed, like that of line 40 above. Line 30 carries 
out two tasks: X is increased by 1, and control transfers back to the test in line 10. There the test 
is carried out to determine whether to execute the body of the loop again or to go on to the state- 
ment following line 30. Thus, lines 10 and 30 take the place of lines 10, 30, and 40 in the pre- 
vious program. 

Note that the value of X is increased by 1 each time BASIC goes through the loop. If we want a 
different increase, e.g., 5, we could specify it by writing the following: 

10 FOR X=l TO 100 STEP 5 

and then the value of X on the first time through the loop would be 1 , on the second time 6, on 
the third 1 1, and on the last time 96. The step of 5 which would take X beyond 100 to 101 causes 
control to transfer to line 50, which ends the program. The STEP may be positive, negative, or 
zero. We could have caused the original results to b>e printed in reverse order by writing line 10 
as follows: 

10 FOR X=1P0 TO 1 STEP-1 

In the absence of a STEP instruction, a step-size of +1 is assumed. 

The word BY may be substituted for the word STEP; FOR TO BY and FOR TO STEP statements are com- 
pletely equivalent. 

More complicated FOR statements are allowed. The initial value, the final value, and the step-size 
may all be formulas of any complexity. For example, we could write the following: 

FOR X=N + 7*Z TO (Z-N>/3 B Y ( N-4*Z ) / 1 fc) 
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For a positive or zero step-size, the loop continues as long cb the control variable is less than or equal 
fo the final value. For a negative step-size, the loop continues as long as the control variable is 
greater than or equal to the final value. 

If the initial value is greater than the final value (less than the final value for negative step-size), 
the body of the loop is not performed at all , but the computer immediately passes to the statement 
following the NEXT. The following program for adding up the first n integers gives the correct result 
when n is 0. 



10 


RFAD N 


20 


LET S=0 


30 


FOR K=l TO N 


40 


LET S=S+K 


50 


NEXT K 


60 


PRINT S 


70 


GO TO 10 


90 


DATA 3*10,0 


99 


END 



In the following description of the instructions used to specify a loop, a line number is assumed and 
brackets are used to denote a general type. 



A FOR statement has one of two forms: 



FOR 



FOR 



numeric 
variable 



numeric 
variable 



= [formula] TO [formula] STEP [formula] 
or 

= [formula] TO [formula] BY [formula] 



Most commonly, the expressions are integers and the STEP or BY is omitted. In the latter c«e a step- 
size of +1 is assumed. The accompanying NEXT statement hos one of two forms. 

NEXT [variable] 

NEXT [variable, variable, . . .variable] 

The first form contains one variable that must be the same as that following FOR in the FOR statement, 
The second form of the NEXT statement contains two or more variables separated by commas. These 
variables must also match the variables in their accompanying FOR statements. 

When the second form of NEXT is used, the variables must be written in the some order as they would 
be written in separate NEXT statements. That is, the variable that matches the last FOR statement is 
first, that which matches the next- to-last FOR is second, and the variable that matches the first FOR 
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$tat«m«nt is last. This causes the loops to be nested properly (refer to section 2.2). For example: 

FOR X FOR X 

FOR Y FOR Y 

FOR Z is equivalent to FOR Z 

NEXT Z NEXT Z, Y, X 

NEXTY 

NEXTX 

Note that for each FOR statement there is one and only one variable in a NEXT statement, 
and vice versa. Some examples of FOR and NEXT statements are: 

30 FOR X=0 TO 3 STEP D 

W NFXT X 

l?fl FOR X4 = <1 7+C0S(Z) )/3 TO 3* St)t< < 1 ) BY 1/4 

?35 NEXT X4 

?4(^ FOR X«R TO 3 STEP -1 

456 FPK J«-3 TO \'^ HV fi 

Sf^f'i NFXT wl*X 

Line 120 specifies that the successive values of X4 ore .25 apart, in increasing order. Line 240 speci- 
fies that the successive values of X will be 8, 7, 6, 5, A, 3. Line 456 specifies that J will take on 
values -3, -1, 1, 3, 5, 7, 9, ond 11. If the initial, final, or step-size index values ore given as 
formulas, these formulas are evaluated only upon entering the FOR statement; therefore, if after this 
evaluation we change the value of a variable in one of these formulas, we do not affect the index 
value. 

The control variable con be changed in the body of the loop; it should be noted that the exit test 
always uses the latest value of this variable. 

The following difficulty con occur with loops, both FOR-NEXT loops and loops explicitly written with 
LET and IF statements (as In the example on page 2-1). The calculation of the index values (initial, 
final, and step-size) is subject to precision limitations inherent in the computer. These values an 
represented in the computer as binary numbers. When the values are integer, they con be represented 
exactly in binary; however, it is not always possible to represent decimal values exactly in binary 
when they contain a fractional part. For example, o loop of the form: 

40 FOR X»0 TO 10 STEP 0.1 
95 NEXT X 

executes 100 times instead of 101 times because the internal value for 0. 1 is not exactly 0. 1 After 
the hundredth execution of the loop, X is not exactly equal to 10, it is slightly larger than 10, so the 
loop stops. Whenever possible, it is advisable to use indices that have integer values because then 
the loop will always execute the correct number of times. 
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2.2 NESTED LOOfS 



Nesfed loops (loops within loops) con be exprossed with FOR and NEXT statements. They must be 
nested and not crossed as the following skeleton examples illustrate: 



Allowed 



Allowed 



Not Allowed 



I — FORX 
rPORY 

Lnexty 

— NEXT X 



FORX 
FORY 
FORZ 
NEXT Z 
I— FORW 
L-NEXTW 
■^ — NEXTY 
FORZ 
NEXTZ 
NEXTX 



El 
I 



CI 
I 



-FORX 
■FORY 
"—NEXTX 
-NEXTY 
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CHAPTER 3 

LISTS AND TABLES 



In addition to the ordinary variables used by BASIC, variables can be used to designate the elements 
of a list or a table. Many occasions arise where a list or a table of numbers is used over and over, 
and, since it is inconvenient to use a separate variable for each number, BASIC allows the program- 
I mertodesignatethenameof a listortableby a single letteror a single letter followed by a single digit. 

Lists are used when we might ordinarily use a single subscript, as in writing the coefficients of a 
polynomial (a., a. , a^, . . . , a ) . Tables are used when a double subscript is to be used, as in writing 
the elements of a matrix (b. .). The variables used in BASIC consist of a single letter or a letter 
and a digit which is the name of the list or table, followed by the subscript in parentheses. Thus, 

A(0),A(1),A(2), ...,A(N) 

represents the coefficients of a polynomial , and 
I B7(l,l), B7(l, 2), ..., B7(N,N) 

represents the elements of a matrix. (Refer to Chapter 8 for a discussion of string variables.) 

I The single letter or the letter and digit denoting a list or a table name may also be used without con- 
fusion to denote a simple variable. However, the some name may not be used to denote both a list and 
a table in the same program because BASIC recognizes a list as a special kind of table having only one 
column. The form of the subscript is flexible: A list item B(l + K) may be used, or a table item 
Q(A(3,7), B-C) may be used. The value of the subscript must not be less than zero. 

We can enter the list A(0), A(l), . .., A(10) into a program by the following lines: 

Ifi FCR 1=0 TC 1« 

20 HEAD A< I ) 

30 NEXT 1 

40 DATA 0>2*3*-5*2.2>4* -9*123*4*-4*3 
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3.1 THE DIMENSION STATCMENT (DIM) 

BASIC cwtomatlcally reserves room for any lisf or ttible with siiMcripts of 10 or fewer. However, If we 
want larger subscripts, we must use a DIM statement. This statement indlcotes to the computer that 
I the specified spoce is to be allowed for the list or table. DIM can also be written as DIMENSION. 
For example, the instruction 

10 DIM A(15) 

reseirves 16 spaces for list A (A(0) , A(l) , A(2) , . . . , A(15)) . The Instruction 
I 20 DIN-CNSION Y5(I0#15) 

I resewes 176 spaces for matrix Y5 (10 + 1 rows * 15 -^ 1 columns). Space may be reserved for more than 
one list and/or txable with a single DIM statement by separating the entries with commas, as shown in 
the following sMomple: 

I 30 DIM A(100>«B(20«3O)«C4(;'5> 

I A DIM (or DIMENSION) statement Is not executed; therefore, It may appear on any line before the 
END statement. However, the best place to p\tf It Is at the beginning so that it Is not forgotten. If 
we enter a table with a subscript greater than 10, without a DIM statement, BASIC gives an error 
message/ telling us that we have a subscript error. This condition can be rectified by entering a DIM 
statement with a line number less than the line number of the END statement. 

I A DIM (or DIMENSION) statement is normally used to reserve additional space, but in a long program 
that requires many small tables, it may be used to reserve less space for tables In order to hove more 
space for the program. When In doubt, declare a larger dimension than you expect to use, but not one 
so large that there Is no room for the program. For example , If we want a list of 15 numbers entered, 
we moy write the following: 

10 DIM A(25) 

20 READ N 

30 FOR I«l TO N 

40 READ AC I) 

50 NEXT I 

60 DATA 15 

70 DATA 2*3*5#7#1 1*13*17, 19*23*29*31*37, 41, 43#47 

Statements 20 and 60 could have been eliminated by writing 30 as FOR I = 1 TO 15 but the program as 
typed allows for the lengthening of the list by changing only statement 60, as long as the list does not 
exceed 25 and there is sufficient data . 
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We could enter a 3-by-5 table Into a program by wrifing the following: 

10 FOR 1=1 TO 3 

?0 FOR J=l TO 5 

I 30 kFAD RP ( I , J) 

40 NFXT J 

50 NFXT I 

60 DATA 2^3>-5/-9*2 

70 DATA 4*-7,3>4#-2 

B0 DATA 3^-3*5,7*8 

\ Again, we may enter a table with no DIM (or DIMENSION) statement: BASIC then handles ail the 
entries from B(0,0)to B(10, 10). 

3.2 EXAMPLE 

Below are the statements and run of a problem which uses both a list and a table. The program com- 
putes the total sales of five salesmen, all of whom sell the same three products. The list, P, gives the 
price per item of the three product* and the table, S, tells how many items of each product each man 
sold. Product 1 sells for $1 .25 per item, product 2, for $4.30 per item, and product 3, for $2.50 per 
item; also, salesman 1 sold 40 items of the first product, 10 of the second, 35 of the third, and so on. 
The program reads in the price list in lines 40 through 80, using data in lines 910 through 930. The 
same program could be used again, modifying only line 900 if the prices change, and only lines 910 
through 930 to enter the soles in another month . This sample program does not need a DIM statement, 
because the computer automatically reserves enough space to allow all subscripts to run from to 10. 

NOTE 

Since spaces are ignored, statements may be indented for 
visual identity of the various loops within the program. 

10 FOR 1=1 TO 3 

20 READ P( I ) 

30 NEXT I 

40 FOR 1=1 TO 3 

50 FOR J=l TO 5 

60 READ S< I* J) 

70 NEXT J 

R0 NEXT I 

90 FOR J=l TC 5 

100 LET S=0 

110 FOR 1=1 TO 3 

120 LET S=S+P( I )+S( I* J) 

130 N'EXT I 

140 PRINT "TOTAL SALES FOR SALESMAN" J*"$"S 

150 NEXT J 

900 DATA 1.25*4.30*2.50 

910 DATA 40*20*37*29*42 

920 DATA 10*16*3*21*8 

930 DATA 35*47*29*16*33 

999 END 

(continued on next page) 
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HUN 

SALFSI 11 !P»6 20-OCT-69 

TOTAL SALES FCK SALESMAN I $ 1R0.500 

TOTAL SALFS FCK SALFSNiAN 2 % 211.300 

TOTAL SALES FOR SALESMAN 3 S 131.650 

TOTAL SALES FOh SALESMAN 4 $ 166-500 

TOTAL SALES FOR SALESMAN 5 S 169.400 
TIMPJ 0.16 SECS. 



3,3 SUMMARY 

Q«il»9MM tfui numbtr of limpU variable names is limited, BASIC allows a programmer to use lists and 
tablet to Incrtoit the number of problems that con be pr o gr am med easily and concisely. A single 
letter or a single letter followed by a single digit is used for the name of the list or table, and the 
subscript that follows is enclosed in parentheses. A subscript may be a number or any legal expression. 

Lists and tablet ore colled subscripted variables, and simple varidsles are called unsubscripted variables. 
Usually, you eon use a subscripted variable anywhere that you use an unsubscripted variable. 
However, the variable mentioned immediately after FOR in the FOR statement and after NEXT in the 
NEXT sAotement must be an unsubscripted variable. The initial , terminal , and step values may be any 
legal expretilon. 

I 3.3.1 The DIM (or DIMENSION) Statement 

To mf\\m a list or a table with a subscript greater than 10, a DIM statement, which has DIMENSION 
OS on altemott form. Is used to retain sufficent space, as in the following examples: 

Pf' DIMENSION H<35) 
35 niy QFi(5*?5) 

The first example enables us to enter list H with 36 items (H(0), H(1), . . . , H(35)) . The second reserves 
space for o toble of 156 items (5 + 1 rows * 25 + 1 columns) . 
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CHAPTER 4 

HOW TO RUN BASIC 



After learning how fo write a BASIC program, we must learn how to gain access to BASIC via the 
Teletype so that we can type in a program and have the computer solve it. Steps required to 
communicate with the monitor must first be performed. These steps are fully explained in DECsys- 
tem-10 Users Handbook and the DECsystem-10 Operating System Commends manual. 

4.1 GAINING ACCESS TO BASIC 

After arriving at a terminal, follow three steps in order to enter BASIC 

1 . Contact the DECsystem-10 computer, 

2. Complete the LOGIN procedure, and 

3. Access BASIC, 

4,1 ,1 Contacting the DECsystem-10 Computer 

Turn the terminal knob to LINE, Next, the terminal must be connected to the computer, either 
directly, by means of a coble that leads from the terminal to the computer, or indirectly, using the 
telephone system to link the terminal to the computer. 

For direct connections, the user is not required to do anything more to contact the system than to 
turn the knob to LINE. 

Since the procedure for obtaining a telephone system connection differs from one installation to 
another, the user should obtain the instructions from the operations staff at his particular installation. 

4.1 .2 Completing the LOGIN Procedure 

Three steps comprise the LOGIN procedure: 

1 . Depress tC and type LOGIN. This signals the computer that you want to use it. 

After you type LOGIN, the monitor types your job number, the version of the monitor, 
and your terminal number. It then types a '^ . 

4-1 January 1974 



2, Typ« your project -programmer number. This number is assigned fo you by the computer 
administration staff. Next, the monitor asks for your password by typing PASSWORD:. 

3. Type your password (also assigned by the computer administrations staff). It is not 
printed. 

If your password and project-programmer number are both valid, the monitor types the time, dote and 
day of the week. Refer to Paragraph 4.7 for on example of the LOGIN procedure, 

4,1 .3 Accessing BASIC 

When the DECsystem-10 is ready to accept commands, the monitor responds with a period. Type 
R BASIC to clear the user's core memory area and establish contact with the BASIC progrom. When 
BASIC is ready to accept commands it types READY, FOR HELP TYPE HELP. 

NOTE 

In some coses the system automatically executes 
the R BASIC commend for the user. If READY, 
FOR HELP TYPE HELP appears immediately 
after the LOGIN procedure, this option has 
been enacted. 

You con either type HELP to get a list of commands that you can give to BASIC or type any command 
or statement that you wish. 

If you are going to create a new program, type in: 

NEW 
BASIC resDonds with the following: 

NEW FILE NAMF-- 

Type in the name of your new program. If you wont to work with a previously created program thot 
you saved on a storage device, type in the following: 

OLD 

BASIC then asks for the name of the old program, as follows: 

OLD FILF NAme:-- 
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Respond by typing in t+te name of your old file. If your old file is stored on a device other than the 
disk, you must type in the device name as in the following example: 

OLD FTLE NAME--DTA6 .-sample: 

BASIC retrieves the file named SAMPLE from DEC tape 6 and replaces the current contents of user core 
with the file SAMPLE . The disk moy be specified os the device on which the old program is stored, 
but this is not necessary because the disk is the device used when no device is specified. For example, 
the following statements are equivalcrnt: 

OLD FILE NAME--DSK:TEST1 
OLD FILE NAI>^E--TEST 1 

Device names are as follows: 

DSK the disk 

DTAO through DTA7 DECtapes number through 7 on the first control unit 

DTBO through DTB7 DECtapes number through 7 on the second control unit 

TTY your Teletype 

TTYO through TTY1 77 Teletypes number through }77 

LPT the line printer 

K^AO through MTA7 magnetic tapes number through 7 

FTP the high-speed paper-tape punch 

PTR the high-speed paper-tape reader 

CDP the card punch 

CDR the card reader 

SYS the system device where system programs are stored 

BAS or ***! the library where your installation stores BASIC programs 

for all BASIC users 

Not all installations have all of these devices; if you specify a device that does not exist or thot is not 
available for your use, BASIC returns can error message. Also, while it is possible to store a file on 
the card punch, for example, the file cannot be retrieved from this device but must be retrieved firom 
the card reader. If you specify for OLD a device that con only do output, an error message will be 
returned . . 

Program namM can be any combination of letters and digits up to and including six characters in length . 
In addition to specifying a program name, you may also specify an extension. The extension follows 
the name ond is separated from it by a period. An extension is any combination of letters and digits 
up to and including three characters in length. In previous chapters we have used program names such 
as LINEAR and SALES 1 . If you recall an old program from storage, you must use exactly the same 
name and extension you assigned to it when it was saved . 



1 

When the asterisk is used, it follows the filename and extension rather than preceding them as with 

the other devices. 
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You can also type the name of your file (and the device on which it Is located) on the same line as 
the NEW or OLD command. In this case, BASIC will not ask for the name of the file. For example: 

NE'.v T?:ST 

OLH nTAAtS^'^PLF 

The NEW OR OLD — request can be answered not only by NEW or OLD, but also by any other com- 
mand (refer to Chapter 9 for a description of the commands) or statement. If NEW OR OLD — is 
answered by a NEW, OLD, or RENAME command, the current device, filename, and extension are 
established by the ariguments specified with the command; if a device is not specified explicitly, the 
disk is assumed; if a filename is specified without an extension, the extension BAS is assumed; it is 
illegal fo specify an extension without specifying a filename. 

If NEW OR OLD — is onswered by anything other than a NEW, OLD, or RENAME command, the cur- 
rent device, filename, and extension ore estdslishod as DSK, NONAME, and BAS, respectively. For 
example, the following sequence creates a disk f!le called NONAME. BAS . 

•R BASIC 

NEW OR OLD -- 5 PRINT "TESTING" 

10 END 

SAVE 

A new current device, filename, and extension are established whenever a NEW, OLD, or RENAME 
command is given. 

To indicate thot you wish to use the librory BAS, you can type either of the following: 

filename.ext*** 
BAS:filename.ext 

When BASIC reods either of these forms, it looks for "device" BAS. If BASIC cannot find BAS, it 
assumes that you mean the disk area with the project-programmer number [5, 1] where BAS normally 
resides. 

4.2 ENTERING THE PROGRAM 

After you type in your filename (whether It is old or new), BASIC responds with the following: 

READY 

You can begin to type in your program. Make sure that each line begins with a line number contain- 
ing no more than five digits and containing no spaces or nondigit characters. Also, be sure to start 
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at th« buginning of the Teletype line for each new line. Press the RETURN key upon completion of 
each line. 

If, in the process of typing a statement, you make a typing error and notice it before you terminate 
the line, you can correct it by pressing the RUBOUT key once for each character to be erased, going 
backward until the character in error is reached. Then continue typing, beginning with the character 
in error. Ihe following is an example of this correcting process: 

10 PRNIT\TIN\INT 2#3 

NOTE 

The RUBOUT key echoes as a backslash (\) , followed by 
the deleted characters and a second backslash . 



4.3 EXECUTING THE PROGRAM 

Aftw typing the complete program (do not forget to end with an END statement), type RUN or RUNNH, 
followed by the RETURN key. BASIC types the name of the program, the time of day, the current dote 
(unless RUNNH is specified), and then it analyzes the program. If the program can be tvn, BASIC 
executes it and, via PRINT statements, types out any results that were requested. The typeout of re- 
sults does not guarantee that the program is correct (the results could be wrong), but it does indicate 
that no grammatical errors exist (e.g., missing line numbers, misspelled words, or illegal syntax). If 
errors of this type do exist, BASIC types a message (or several messages) to you . A list of these diag- 
nostic messages, with their meanings, is given in Appendix B. 

4.4 CORRECTING THE PROGRAM 

If you receive an error message typeout informing you, for example, that line 60 is in error, the line 
con be corrected by typing in a new line 60 to replace the erroneous one. If the statement on line 1 10 
is to be eliminated from your program, it is accomplished by typing the following: 

110 

If you wish to insert a statement between lines 60 and 70, type a line number between 60 and 70 (e.g . , 
65), followed by the statement. 

4.5 INTERRUPTING THE EXECUTION OF THE PROGRAM 

If the results being typed out seem to be incorrect and you want to stop the execution of your program 
or suppress its typeout, type tO (hold down CTRL key and at the some time type O) to suppress the 
typeout, or type tC twice to stop execution, as indicated in the following example: 
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^Q I Sf-ops execution of your program, closes any files fhaf 

tc I are open in the program (refer to Chapter 10), and 

I Returns to BASIC command level. 

If you typed tC, BASIC responds with the following: 

READY 
whereupon you can modify or add statements and/or type RUN or any other command. 

4.5. 1 Returning to Monitor Level 

If you wish to leave BASIC and return to monitor level, type: 

vn\' IT Oh 
the monitor responds with a period and waits for you to type a monitor command. If you wish to 
return to BASIC, you must not type a command that will change what you have in core (i.e., the 
ASSIGN command does not change what is in core, but the DIRECT command does change core). 
To return to BASIC, type the following: .START or .REENTER or .CONT 

.STAkT or .KFFN'TFK or .COM 
BASIC responds with 

kEADY 
and you can continue working in BASIC. 

4.6 LEAVING THE COMPUTER 

When you wish to leave the computer, type the BYE or GOODBYE command. 

No files created on the disk by BASIC commands or program statements are deleted by this 
procedure . 

The system monitor responds to the BYE or GOODBYE command by logging you off the 
system completely, unless your files stored on the disk take up so much room that you 
are over the logged-out quota set by the system administrator. In that case, the fol- 
lowing message is typed out (n and m are the appropriate integers): 

n^u |r.Kf;Ph ri'T ^If'I" n FaCFFOP"?) ^Y m h!_CCKb 
If you then type 

instructions for deleting files at logout time are typed on your Teletype. 
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4.7 EXAMPLE OF BASIC RUN 

Hie Ibi lowing is a simple cocample of Hie use of BASIC under a Hmeshoring nnonitor: 

.tC GO TO MONITOR LEVEL 

.LOGIN REQUEST LOGIN 

JOP 7 5S03I8A TTY34 MONITOR TYPES OUT YOUR ASSIGNED 

JOB NUMBER, THE CURRENT VERSION 
NUMBER OF THE MONITOR, AND YOUR 
TELETYPE NUMBER 

MONITOR REQUESTS YOUR PROJECT- 
'S 7* 20 PROGRAMMER NUMBER; TYPE IT IN 

PASSWORD ! MONITOR REQUESTS YOUR PASSWORD; 

TYPE IT IN; IT WILL NOT ECHO BACK 

0927 29-0CT-69 WED MONITOR TYPES OUT THE TIME OF 

DAY, THE CURRENT DATE, THE DAY OF 
THE WEEK, AND A PERIOD 

.R BAS IC INSTRUCT MONITOR TO BRING BASIC 

INTO CORE AND START ITS EXECUTION 

r<FAnY> voh HELP TYPE HELP BASIC INDICATES THAT IT IS READY 

TO RECEIVE A COMMAND OR STATE- 
MENT 

NEW TYPE THE COMMAND NEW 

NEW FILE NAVE'-SA^PLE BASIC ASKS FOR NEW FILENAME 



READY 






BASIC IS NOW READY TO RECEIVE 
STATEMENTS 


10 


FOR N = 


1 TO 7 


TYPE IN STATEMENTS 


20 


PRINT 


S)* SORCN) 




30 


NFXT N 






40 


PRINT ' 


•DONE" 




50 


END 






RUN 






RUN PROGRAM 


SAN'PLE 

1 




11:14 

1 


29-0CT-69 


1 




1 

1 .41421 




3 




1 .732l''5 




A 




2 




5 




8 ,23607 




^ 




2 ./|/|<949 





(continued on next page) 
Version 178 BASIC 4-6 September 1972 



7 2.64575 

DONE 

Tlr^E: 0.20 SECS. 

READY 

HYF 

JOB 1, USER C27, 20] LOGGED OFF TTY34 0930 29-0CT-69 
SAVED ALL 1 FILE (5 DISK BLOCKS) 
RUNTIME MIN, 01 SEC 



4.8 ERRORS AND DEBUGGING 

Occasionally, fhe firsf run of a new problem is free of errors and gives the correct answers, but, more 
comnrxjnly, errors are present and hove to be corrected. Errors are of two types: errors of form (gram- 
matical emars) which prevent the running of the program, and logical errors in the program which cause 
the computer to produce wrong answers or no answers at all . 

Errors of form cause error messages fo be printed, and the various types of error messages are listed and 
explained in Appendix B. Logical errors are more difficult to uncover, particularly when the program 
gives answers which seem to be nearly correct. In either case, after the errors ore discovered, they 
can be corrected by changing lines, by inserting new lines, or by deleting lines from the program. As 
indicated previously, a line is changed by typing it correctly with the same line number; a line is in- 
serted by typing it with a line number between those of two existing lines; and a line is deleted by 
typing its line number and pressing the RETURN key. Note that you can insert a line only if the orig- 
inal line numbers are not consecutive integers. For this reason, most programmers begin by using 
arbitrary line numbers that are multiples of five or ten . 

These corrections can be made either before or after a run. Since BASIC sorts out lines and arranges 
them in order, a line may be retyped out of sequence. Simply retype the offending line with its orig- 
inal line number. 

4.8.1 Example of Finding and Correcting Errors 

We can best illustrate the process of finding the errors (bugs) in a program and correcting (debugging) 
them by an example. Consider the problem of finding that value of X between and 3 for which the 
sine of X is a maximum, and ask the machine to print out this value of X and the value of its sine. 
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Although we know that ir/2 is the correct value, we use the computer to test successive values of X 
from to 3, first using intervals of .1 , then of .01 , and finally of .001 . Thus, we ask the computer 
to find the sine of 0, of .1 , of .2, of .3. . ., of 2.8, of 2.9, and of 3, and to determine which of 
these 31 values is the largest. It does so by testing SIN(O) and SIN(.I) to see which is larger, and 
calling the larger of these two numbers M. It then picks the larger of M and SIN (.2) and calls it M. 
This number is checked against SIN (.3) . Each time a laiger value of M is found, the value of X is 
"remembered" in XO. When it finidies, M will have been assigned to the largest value. It then repeats 
the search, this time checking the XI numbers 0, .01, .02, .03, ..., 2.98, 2.99, and 3, finding 
the sine of each, and checking to see which has the largest sine. At the end of each of these three 
searches, we want the computer to print three numbers: the value XO which has the largest sine, the 
sine of that number, and the interval of seorch . 

Before going to the Teletype, we write a program such as the following: 

10 READ 

20 LET X0»0 

30 FOR Xs0 TO 3 STEP D 

40 IF SIN<X)<«M THEN 100 

50 LET X0aX 

60 LET H«SIN<X0) 

70 PRINT X0#X>D 

80 NEXT X0 

90 GO TO 20 

100 DATA •1«.01#.001 

110 END 



The following is a list of the entire sequence on the Teletype with explanatory comments on the right 



I 



side: 



RFADY# 


FOFc HELP TYPE HFLP 


NFW 






NEW 


FILE NAME--MAXSIN 


READY 




10 




READ 


20 




LWR X0«0 


30 




hun A=iJ 10 5 blt.P U 


40 




IF SINE\E\<X)<»M THEN 100 


50 




LET X0=X 


60 




LET MsSIN(X) 


70 




PRINT aO*X,D 


m 




NEXT T\TNX0 


90 




GO TO 20 


20 




LET X0S0 


100 




DATA .1#.01*.001 


110 




END 


RUN 







Note the use of the RUBOUT key 
(echoes as a \) to erase a character 
in line 40 (which should have started 
IF SIN (X), etc.) and in line 80. 

We discover that LET was mistyped 
in line 20, and we correct it after 
90. 
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NWXSIN 



1 1 :35 



2M-0CT-69 



ILLEGAL VARIABLE IN 7PJ 
NEXT WITHOUT FOR IN 80 
FOR WITHOUT NEXT IN 30 
TIME: 0.05 SECS. 
READY 



70 


PRINT ; 


K0*X*D 


m 


IF 


SIN 


(X) <=M THEN 80 


80 


NEXT X 




RUN 








MAXSIN 






11:36 20-OCT-69 


0.1 






0.1 0.1 


0.2 






0.2 0.1 


0.3 






TCtC 


READY 








20 








RUN 









NV^XSIN 11:37 20-OCT-69 

IINDEFINED LINE NUMBER 20 IN 90 
TIME: 0.03 SECS. 



90 


GO 


TO 


10 




RUN 










MAXSIN 






1 1 :43 


20-OCT-69 


0.1 






0.1 


0.1 


0.2 






0.2 


0.1 


0.3 






tCtC 




READY 











70 

85 PRINT X0#M#D 

5 PRINT "X VALUE"*"SIN"*RESOLUTION" 

RUN 



MAXSIN 



1 1 :aa 



20-OCT-69 



ILLEGAL VARIABLE IN 5 

TIME: 0.08 SECS. 

READY 

5 PRINT "X VALUE" ^"SIN'S-RESOLUT ION" 

RUN 



After recelvrng the first error mes- 
sage, we inspect line 70 and find 
that we used XO for a variable in- 
stead of XO . The next two error 
messages relate to lines 30 and 80 
having mixed variables. These ore 
corrected by changing line 80. 

Both of these changes are made by 
retyping lines 70 and 80. In looking 
over the program, we also discover 
that the IF - THEN statement in 40 
directed the computer to a DATA 
statement and not to line 80 where 
it should go. This is obviously in- 
correct. We are having every value 
of X printed, so we direct the 
machine to cease operations by 
typing tC twice even while it is 
running. We notice fhatSIN(O) is 
compared with M on the first time 
through the loop, but we had assign- 
ed a value to XO but not to M. 
However, we recall that all variables 
are set equal to zero before a RUN; 
therefore, line 20 is unnecessary. 

Line 90, of course, sent us back to 
line 20 to repeat the operation and 
not back to line 10 to pick up a 
new value for D . We retype line 90 
and then type RUN again. 

We are about to print out the same 
table as before. Each time that it 
goes through the loop, it is printing 
out XO, the current value of X, and 
the interval size. 

We rectify this condition by moving 
the PRINT statement outside the loop. 
Typing 70 deletes that line, and 
line 85 is outside of the loop. We 
also realize that we want M printed, 
not X . We also decide to put in 
headings for the columns by a 
PRINT statement. 

There is an error in our PRINT state- 
ment: no left quotation mark for the 
third item. 



(continued on next page) 
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MAXSIN 1 1 :47 


20-OCT-69 


X VALUE SINE 


RESOLUTION 


1.60 0.999574 


0.1 


1.57 1. 


0.01 


1 .57099 1 . 


0.001 


OUT OF DATA IN 10 




TIME: 0.96 SECS. 




READY 





LIST 



MAXSIN llJ4g 20-OCT-69 



5 


PRINT "X VALUE"* "SINE" 


^"RESOLUTION' 


10 


READ D 




30 


FOR X«0 TO 3 STEP D 




40 


IF SIN(X)<«M THEN 80 




50 


LET X0sX 




60 


LET M=SIN(X) 




80 


NEXT X 




85 


PRINT X0#M#D 




90 


GO TO 10 




100 


DATA .1# .01«.001 




110 


END 




READY 






SAVE 






READY 







Refype line 5, with all of the re- 
quired quotation morlci. 

Til ese ore the desired results. Of 
the 31 numbers (0, J, .7, .Z,..., 
2.8, 2.9, 3), it is 1 .6 which has 
the largest sine, namely .9S>9574; 
this is true for finer subdivisions. 

Having changed so many parts of the 
program, we ask for a list of the cor- 
rected program. 



The program is soved for later use. 



A PRINT stqtement could hove been inserted to check on the machine computations. For example, if 
M were checked, we could hove inserted 65 PRINT M, and seen the values. 
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CHAPTER 5 

FUNCTIONS AND SUBROUTINES 



5.1 FUNCTIONS 

Occasionally, you may want fo calculahe a funcfion^ for example, the square of a number. Instead 
of writing a small program to calculate this function, BASIC provides functions as part of the language, 
some of which ore described in Chapter 1 . The remaining functions are described here, in Chapter 7, 
and in Chapters 8 and 10. 

The desired function is called by a three-letter name. The value to be used is expressed explicitly or 
implicitly in parentheses and follows the function name. The expression enclosed in parentheses is 
the argument of the function, and it is evaluated and used as indicated by the function name. For 
example: 

15 LET B=S0RC4-t-Xt3) 

indicates that the expression (4 + X t3) is to be evaluated and then the square root taken. 

5.1.1 The Integer Function (INT) 

The INT function appears in algebraic notation as CX] and returns the greatest integer of X that is less 
than or equal to X. For example: 

INT (2.35) =2 
INT (-2.35) =-3 
INT (12) =12 

One use of this function is to round numbers to the nearest integer by asking for INT (X + .5) . For 

example: 

INT (2.9 + .5) =INT (3.4) =3 

rounds 2.9 to 3. Another use is to round to any specific number of decimal places. For example: 
INT(X * 10 t2 + .5) /10 t2 
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rounds X corracl' to two dscimal ploces and 
INT(X* 10 tD+ .5)/10 to 

rounds X correct to D decimal places. 

5.1 .2 TTie Random Number Generating Function (RND) 

The RND function produces random numbers between and 1 . This function is used to simulate events 
that happen in a somewhat random way. RND does not need an argument. 

If we wont the first 20 random numbers, we can write the program shown below and get 20 six*^igit 
decimals. 



10 FOR L« 


1 TO 20 








20 PRINT 


RND# 








30 nf:xt L 










40 END 










RUN 










RANDOM 


13124 


20-OCT-69 






0.406533 


0.88445 


0.681969 


0.939462 


0.253358 


0-B63799 


0.880238 


0.638311 


0.602898 


0.990032 


0.863799 


0.897931 


0.628126 


0.613262 


0.303217 


5.00548E-2 


0.393226 


0.680219 


0.632246 


0.668218 



NOTE 

This is a sample run of random numbers. The format of the 
PRIN T statement is discussed in Chapter 6. 



RUN 




RANDOM 


13:25 


0.406533 


0.88445 


0.863799 





20-OCT-69 
0.681969 



0.93 9462 



0.253358 



A second RUN gives exactly the same random numbers as the first RUN; this is done to facilitate the 
debi^ging of programs. If we wont 20 random one-digit integers, we could change line 20 to read as 
follows: 



20 
RUN 



PRINT INT (10*RND)* 
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We would obtain the following: 



kAN'DO^' 


13 


4 


8 


F< 


8 


5 


8 


it 


3 



'^0 -OCT -69 

6 
6 
6 



To vary the type of random numbers (20 random numbers ranging from 1 to 9, inclusive), change line 
20 as follows: 

20 PMNT INT(<5*h;ND +1); 

HUN 

RANDOM 13:?8 20-OCT-69 

^87938866966314767 

To obtain random numbers which are integers from 5 to 24, inclusive, change line 20 to the following: 

PRINT I\'T(20*Ri\'D +5); 



20 
RUN 

RANDOM 



13:30 



20-OCT-69 



13 22 IB 23 10 22 22 17 17 24 16 22 17 17 11 6 
12 18 17 18 



If random numbers are to be chosen from the A integers of which B is the smallest, call for 
INT (A*RND+B). 

5.1.3 The RANDOMIZE S tatement 

As noted when we ran the first program of this chapter twice, we got tfie same numbers in the same 
order each time. However, we get a different set with the RANDOMIZE statement, as in the follow- 
ing program: 



5 


RANDOMIZE 


10 


FOR L=l TO 20 


20 


PRINT INT(10*RND); 


30 


NFXT L 


40 


END 


Rl!M 





RNDNOS 13:32 20-OCT-69 

1 9421 1 6638498656626 



RUN 
RNDNOS 



13:33 



20-OCT-69 



1 14666 5384081051 801 
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RANDOMIZE (RANDOM) resets fhe numbers in a random way. For example, if fhis is fhe first instruc- 
tion in a program using random numbers, tfien repeated RUNs of the program produce different results. 
If the instruction is absent, then the official list of random numbers is obtained in the usual order. It 
is suggested that a simulated model should be debugged without this instruction so that one always ob- 
tains the same random numbers in test runs. After the program is debugged, and before starting produc- 
tion runs, you insert the following: 

1 RANDON' 

5.1.4 The Sign Function (SGN) 

The SGN function is one which assigns the value 1 to any positive number, to zero, and -1 to any 
negative number. Thus, SGN (7.23) = 1 , SGN (0) = 0, and SGN (-.2387) = -1 . For example, the 
following statement: 

50 ON SGN(X)+2 GO TO 100*200*300 

transfers to 100 if X < 0, to 200 if X = 0, and to 300 if X >0. 

5.1.5 The Time Function (TIM) 

The TIM function returns the elapsed execution time, in seconds, of a program from the beginning of 
execution. This time does not include compile and load time when a single program is run. However, 
when programs are chained together (refer to 6.6 for a description of chaining), TIM returns the total 
of the elapsed execution time since the start of execution of the first program plus the compile, load 
and execution times of each subsequent program. The TIM function does not accept an argument. 
For example: 

10 Kf^Af) A^ h* C 

1 1 ^ IF T I N = 1 '^ THt^V 1 Sti 



5. 1 .6 The Define User Function (DEF) and Function End Statement (FNEND) 

In addition to the functions BASIC provides, you may define up to 26 functions of your own with the 
DEF statement. The name of the defined function must be three letters, the first two of which are FN, 
e.g., FNA, FNB, ..., FNZ. Each DEF statement introduces a single function. For example, if you 
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v2 
rmfmaf96\y um the function e -♦- 5, introduce the function by the following: 

30 DEF FNE(X)sEXPC-Xt2)-f5 

and coil for various values of the function by FNE (. 1), FNE (3.45), FNE (A+2), etc. This statement 

saves a great deal of time when you need values of the function for a number of different values of the 

variable. 

The DEF statement may occur anywhere in the program, and the expression to the right of the equal 
sign moy be any formula that fits on one line. It may include any combination of other functions, 
such as thoM defined by different DEF statements; it also can involve other variables besides thoae de- 
noting the argument of the function. 

As in the following example eoch defined function may have zero, one, two, or more numeric 
variables; string variables (refer to Chapter 8) are not allowed: 

10 DEF FNB<X#Y)»3*X*Y-Yt3 

105 DEF FNC<X«Y#Z«W)«FNBCX«Y)/FNBCZ«W) 

530 DEF FNA»3.14164'Rt2 
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In the definition of FNA, the current value of R is used when FNA occurs. Similarly, if FNR is de- 
fined by the following: 

70 DEF FNR(X)=SQR (?+LOG(X)-EXP<Y+Z) : (X+SIN(2*2) ) ) 

you con ask for FNR(2.7), and give new values to Y and Z before the next use of FNR. 

The method of having multiple line DEFs is illustrated by the "max" function shown below. Using this 
method, the possibility of using IF , , .THEN as port of the definition is a great help as shown in the 
following example: 

117) DEF FNN'.(X,Y) 

20 LET FNK: = X 

30 IF Y<=X THEN 50 

40 LET FNy=Y 

50 FNEND 

The absence of the equals sign (=) in line 10 indicates that this is a multiple line DEF. In line 50, 

FNEND terminates the definition. The expression FNM, without an argument, serves as a femporpry 
variable for the computation of the function value. The following example defines N-factorial: 



10 


DEF FNF(N) 


20 


LET FNFsl 


30 


FOR K=l TO N 


40 


LET FNF=K*FNF 


50 


NEXT K 


60 


FNEND 



Any variable which is not an argument of FN in a DEF loop has its current value in the progrom. 
Multiple line DEFs may not be nested and there must not be a transfer from inside the DEF to outside 
its range, or vice versa. GOSUB and RETURN statements (refer to Section 5.2) are not allowed in 
multiple line DEFs. 

5.2 SUBROUTINES 

When you have a procedure that is to be followed in several places in your program, the procedure 
may be written as a subroutine. A subroutine is a self-contained program which is incorporated into 
the main program at specified points. A subroutine differs from other control techniques in that the 
computer remembers where it was before it entered the subroutine, and it returns to the appropriate 
place in the main program after executing the subroutine. 

5.2. 1 GOSUB and RETURN Statements 

Two new statements, GOSUB and RETURN, are required with subroutines. The subroutine is entered 
with a GOSUB statement which can appear at any place in the main program except within a multiple 
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line DEF, The GOSUB statement Is similar to a GO TO statement; however, with a GOSUB statement, 
the computer remembers where it was prior to the transfer. Following is an example of the GOSUB 
statement: 



90 



GOSUB 210 



where 210 is the line number of the first statement in the subroutine. The last line in the subroutine is 
a RETURN statement which directs the computer to the statement following the GOSUB from which it 
transferred. For example: 



350 



RETURN 



returns to the next highest line number greater than the GOSUB call. 

Subroutines may appear anywhere in the main p r og r q r r » except within the range of a multiple line DEF. 
Care should be taken to make certain that the computer enters a subroutine only through a GOSUB 
statement and exits via a RETURN statement. 

5.2.2 Example 

A program for determining the greatest common divisor (GCD) of three integers, using the Euclidean 
Alcprithm, illustrates the use of a subroutine. The first two numbers are selected in lir»s 30 and 40, 
and their GCD is determined in the subroutine, lines 200 through 310. The GCD just found is called 
X in line 60; the third number is called Y, in line 70; and the subroutine is entered from line 80 to 
find the GCD of these two numbers. This number is, of course, the greatest common divisor of the 
three given numbers and is printed out with them in line 90. 

A GOSUB inside a subroutine to perform another subroutine is called o nested GOSUB. It is necessary 
to exit from a subroutine only with a RETURN stotement. You may have several RETURNs in the sub- 
routine, as long as exactly one of them will be used. 

GCD" 



10 


PRINT "A"* "B"* "C"* "1 


20 


READ A* B# C 


30 


LET X=A 


40 


LET Y=B 


50 


GOSUB 200 


60 


LET X=G 


70 


LET Y=C 


R0 


GOSUB 200 


90 


PRINT A#B*C*G 


100 


GO TO 20 


110 


DATA 60*90*120 


120 


DATA 38456*64872*98765 


130 


DATA 32*384*72 


200 


LET Q=INT(X/Y) 



(continued on next page) 
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2&A-B Is illegal 

A sforogc word may be relocatable in the left half as well as in the right half. For example: 

XWD A,B 
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CHAPTER 6 

MORE SOPHISTICATED TECHNIQUES 



The preceding chapfers hove covered the essential elements of BASIC . At this point, you are in a 
position to write BASIC programs and to input these programs to the computer via your Teletype. The 
commands and techniques discussed so for are suFRcient for most programs. This chapter and remaining 
ones are for a programmer who wishes to perform more intricate manipulations and to express programs 
in a more sophisticated manner. 

6.1 MORE ABOUT THE PRINT STATEMENT 

The PRINT statement permits a greater flexibility for the more advanced programmer who wishes to 
hove a different format for his output, BASIC normally outputs items from PRINT statements in the forms 
described in this chapter*. Numeric items ore printed in the format: 

■ one space 
■ numeric value 
.sign: space if positive; - if negative 

String items (refer to Chapter 8) ore printed exactly as they appear but without the enclosing quotes. 

The Teletype line is divided into zon^s of 14 spaces each . A comma in a PRINT statement is a signal 
to the Teletype to move to the next print zone on the current line or, if necessary, to the beginning of 
the first print zone of the next line. A semicolon In a PRINT statement causes no motion of the 
Teletype. <PA> (page) In a PRINT statement moves the Teletype to the beginning of the first print 
zone of the first line on the n^xt page of output. Commas, semicolons, and <PA> delimiters can 
appear in PRINT statements without intervening data items. Each delimiter causes Teletype movement 
OS previously described. For example, PRINT A, ,B causes the value of A to be printed in the first zone. 




*This chapter describes the noquote mode of output. The user can explicitly change the mode to quote 
mode by using a QUOTE statement. Refer to Chapter 10 for the description of quote and noquote 
modes and their associated statements. 
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fhe Teletype to be moved to the third zone, and the value of B to be printed in the third zone. If two 
items in a PRINT statement are clearly distinct, the separating commas, semicolons, or <PA> deMmlters 
can be omitted and the items are treated as though they were separated by one semicolon. 

When you type in the following program: 

10 FOR l-l TO 15 

20 PRINT I 

30 NEXT I 

A0 END 

the Teletype prints 1 at the beginning of a line, 2 at the beginning of the nmut line, and, finally, 15 
on the fifteenth line. But, by changing line 20 to read as follows: 

20 PRINT I* 

the numben an printed in the zones, reading as follows: 

12 3 4 5 

6 7 8 9 10 

J' 12 13 14 15 

If you want the numbers printed in this fashion, but compressed, change line 20 by r«ploctng the 
comma with a semicolon as in the following exomple: 

20 PRINT II 

The following results are printed: 

1 2 3 4 5 6 7 8 9 10 1 1 12 13 14 15 

The end of a PRINT statement signals a new line, unless a comma or semicolon is the lost syvrhol . Thus, 
the following instruction: 

50 PRINT X* Y 

prints two numbers and then returns to the next line, while the instruction: 
50 PRINT X, \, 

prinfs these two values and does not return. The next number to be printed appears in the third zone, 
after the values of X and Y in the first two zones. 

Since fhe end of a PRINT statement signals a new line, 
250 PRINT 
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causes the Telefype to advance the paper one line, to put a blank line for vertical spacing of your 
results^ or to complete a partially filled line. 

50 FOR M=l TO N 

110 FOR J=0 TO M 

120 PRINT B(M,J); 

130 NEXT J 

140 PRINT 

150 NEXT M 

This program prints B(1 ,0) and next to it B(l ,1) . Without line 140, the Teletype would go on prinHng 
B(2,0), 8(2,1), and B(2,2) on the some line, and then B(3,0), B(3,l), etc. After the Teletype prints 
the B(l ,1) value corresponding to M = 1 , line 140 directs it to start a new line; after printing the value 
of B(2,2) corresponding to M = 2, line 140 directs it to start another new line, etc. 

The following instructions: 

50 PRINT "TIME-"; "SHAR"i "ING"; 

51 PRINT " ON"; " THE "i "PDP-10" 

cause the printing of the following: 

TIME-SHARING ON THE PDP-10 

(The items enclosed in quotes in statements 50 and 51 are strings.) 

The following instructions: 

10 N=5 

20 PRINT "END OF PAGE" N <PA> 

30 PRINT "ITEM"#*"NO. ORDERED"* #"TOTAL PRICE" 

cause the printing of 

END OF PAGE 5 

followed by a form-feed to positFon the Teletype paper at the top of a new page, where the following 
is printed: 

ITEM NO. ORDERED TOTAL PRICE 

Formatting of output car* be controlled even further by means of the TAB function, in the form TAB(n), 
where n is the desired print position. TAB can contain any numeric formula as its argument. The value 
of the numeric formula is computed and then truncated to an integer. This Integer is treated modulo 
the current output right margin . Setting the output right margin is described in Section 6.7. For 
example, if the output right margin is 72, which is the default margin, a value in the range through 
71 is obtained. The first print position on the line is column 0. Thus, TAB(17) causes the Teletype to 
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mov0 to column 17 (unless if has alreod/ passed this position, in which cose the TAB is Ignored) . For 
example, inserting the following line in a loop 

55 PRINT Xi TAB(12)J Yi TAB(27)iZ 

caus« the X values to start in column 0, the Y values in column 12, and the Z volues in column 27. 

The following rules are used to interpret the printed results: 

a. If a number is on integer, the decimal point is not printed. If the integer contains 
more than eight digits, it is printed in the format as follows. 

sn .nnnnnEsp 

E (Exponent) followed by the sign of the exponent, 

followed by p (power of 10) 

.nmxf five digits 



-first digit 



—sign: space if positive; ' if nisgative 
For exomple, 32,437,580,259 is written as 3.24376E+10. 

b. For any decimol number, no more than six significant digits ore printed. 

c . For a number leu than 0.1, the E notation is used, unless the entire significant 
part of the number eon be printed os a 6-dlgit decimal number. Thus, 0.03456 
indicates that the number is eKOctly .0345600000, while 3.45600E-2 Indicates 
that the number has been rounded to .0345600. 

d . Trailing zeros after the decimal point ore not printed . 

Tlie following progrcmi, in which powers of 2 are printed out, demonstrates how numbers are printed. 

10 FOR Ns-5 TO 30 

20 PRINT 2tNJ 

30 NFXT N 

40 END 

POWERS 11:54 20-OCT-69 

0.03125 0.0625 0.125 0.25 0.5 1 2 4 8 1 6 32 64 128 256 
512 1024 2048 4096 8192 16384 32768 65536 131072 262144 

524288 1048576 2097152 4194304 8388608 16777216 33554432 

67108864 1.324218E + 8 2.68435E*8 5.36871E*8 1 .07374E'»-9 

6.2 INPUT STATEMENT 

At times, during the running of a program, it is desirable to hove data entered. This is particularly 
true when one person writes the program and saves it on the storage device as a library program (refer 
to SAVE command. Chapter 9), and other persons use the program and supply their own data. Data 
may be entered by an INPUT statement, which acts as a READ but accepts numbers of alphanumeric 
data from the Teletype keyboard. For example, to supply values for X and Y into a program, type the 
following: 
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40 INPUT X#Y 

prior to the first statement which uses either of these numbers. When BASIC encounters this statement, 
it types a question mark. The user types two numbers, separated by a comma, and presses the RETURN 
key, and BASIC continues the program . No number can be longer than 8 digits. 

Frequently, an INPUT statement is combined with a PRINT statement to make sure that the user knows 
what the question mark is asking for. You might type in the following statement: 

20 PRINT "YOUR VALUES OF X*Y* AND Z ARE"; 

30 INPUT X*Y*Z 

and BASIC types out the following: 

YOUR VALUE OF X*Y# AND Z ARE? 

Without the semicolon at the end of line 20, the question mark would have been printed on the next 
line. Data entered via an INPUT statement is not saved with the program. Therefore, INPUT should 
be used only when small amounts of data are to be entered, or when necessary during the running of 
the program . 

6.3 STOP STATEMENT 

STOP is equivalent to GO TO xxxxx, where xxxxx is the line number of the END statement in the pro- 
gram. For example, the following two program portions are exactly equivalent: 



250 


GO TO 999 


250 
340 
999 


STOP 


340 


GO TO 999 


STOP 


999 


END 


END 



6 .4 REMARKS S TATEME N T (REM) 

REM provides a means for inserting explanatory remarks in the program. BASIC completely ignores the 
remainder of that line, allowing you to follow the REM with directions for using the program, with 
identifications of the parts of a long program , or with any other information . Although what follows 
REM is ignored, its line number may be used in a GO TO or IF-THEN statement as in the following: 

100 REM INSERT IN LINES 900-998. THE FIRST 

110 REM NUMBER IS N* THE NUMBER OF POINTS. THEN 

120 REM THE DATA POINTS THEMSELVES ARE ENTERED* BY 

200 REM THIS IS A SUBROUTINE FOR SOLVING EQUATIONS 



300 RETURN 

• •••••• 

520 GOSUB 200 
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A second method for adding comments ft) a progrom consists of placing an apostrophe (') at the end of 
the line, and following it by a remark . Everything following the apostrophe is ignored. This method 
cannot be used in an image statement. Imoge statements ore described in Chapter M . Apostrophes 
within string constants are not treated os remork charocters. 

6.5 RESTORE STATEMENT 

The RESTORE statement permits READing the data in the DATA statements of a program more than once. 
Whenever RESTORE is encountered in a p ro grom, BASIC restores the data block pointer to the first num- 
ber. A subsequent READ statement then starts reading the data all over ogain. However, if the desired 
data is preceded by code numbers or pcrameters, superfluous READ statements should be used to pass 
over these numbers. As on example, the following program portion reads the dota, restores the data 
block to its original state, and reads the data again . Note the use of line 570 (READ X) to pass over 
the value of N , which is already known . 

100 READ N 

110 FOR 1=1 TO N 

120 READ X 

200 NEXT I 

560 RESTORE 

570 READ X 

580 FOR 1=1 TO N 

590 READ X 

700 DATA 

710 DATA 

6.6 CHAIN STATEMENT 

The CHAIN statement provides o means for one program to coll another program so that programs can 
be written separately and executed together in a chain. The CHAIN statement has one of the forms: 

CHAIN [alphabetic string] 
or CHAIN [alphabetic string] , [numeric formula] 

The alphabetic string is either: a) the name of the program being chained to, in the form 
devicerfilenome.ext (optionally enclosed in quotes), or b) a string variable* that has as its value the 
name of the program being chained to, in the form device:filename.ext. The device and the extension 



*A string variable is a variable that is used to store an alphabetic string. A string variable is composed 
of a letter ond a dollar sign ($) or a letter, a number, and a dollar sign ($) , e.g., A$ or B2$. String 
variables are described in Chaotar 8. 
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can be omltfed, but ihe filename must be present. If the devi ce is omitted, DSK: is assumed; if the 
extension is omitted, .BAS is assumed. 

The numeric formula specifies a line number in the program being chained to; its value is truncated to 
an integer. 

A few examples of the CHAIN statement are: 

CHAIN A$ 

CHAIN B2$, N*EXP(W) 

CHAIN PTRrAAAIN, 50 

When BASIC encounters a CHAIN statement in a program, it stops execution of that program, retrieves 
the program named in the CHAIN statement from the specified device, compiles the chained pnogram, 
and begins execution either at the line number specified in the CHAIN statement or at the beginning 
of the program if no line number was specif? €k1. Only the heading of the first program in the chain is 
printed, and the TIME: message is printed only after the lost program in the chain has been executed. 
Error messages for the programs in the chain, excluding the first program, have the name of the program 
appended. For example: 

OVERFLOW IN 1100 IN TEST4.BAK 

indicates that on overflow error occurred in line 1 100 in the chained program TEST4,BAK . P rog rom i 
that run individually, or the first program in a chain will not have the program name appended. 

The following is an example of program chaining. 



LIST 






PR0G3 


12 


:05 25-JAN-71 


10 


PRINT 


10 


11 


STOP 




20 


PRINT 


20 


21 


END 




READY 






SAVE 






NEW 






NEW FILENAME 


-- PR062 


READY 






10 


INPUT 


N 


20 


CHAIN 


PR0G3> N 


30 


END 




RUNNH 






?10 






10 






TIME: 


0.02 SECS 
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6.7 MARGIN STATEMENT 

Normally, the right margin for output to the Teletype i$ 72 characters. The MARGIN statement allows 
the user to specify a right margin of 1 to 132 characters. This margin becomes effective on the first 
new line of output after the MARGIN statement, and remains in effect until the r\w.\ time the margin 
is set by a MARGIN statement or until the end of the program's execution, whichever is sooner. At 
the end of program execution, the output margin is reset to 72 characters. 

The form of the margin statement is: 

MARGIN [numeric formula] 

The numeric formula is a numeric conttont, variable, or expression that specifias th« right margin; It 
is truncated to an integer before the margin is set. Some examples of the MARGIN statement are: 

MARGIN 7^ 
MARGIN 132^ 

The right morgin for input from the Teletype is not affected by MARGIN statements; \^ is always 142 
characters. Lines of input that are lor^ger than 142 characters will result in error meiMgM. 

The monitor, as well as BASIC, considers the normal Teletype output morgin ta be 72 eharoeters. 

Therefore, when a margin greater than 72 characten is ne«ded, the monitor command SET TTY WIDTH 

must be used in addition to the BASIC MARGIN statement. Otherwise, the monitor will output a teod- 

ing carriage return-line feed if an attempt is mode to output a seventy-third character on o line. 

Before the program is run, the user must issue the command: 

MONITOR 

to BASIC and then type: 

SET TTY WIDTH 132 
REENTER 

to reenter BASIC. The monitor will not output its carriage return-line feed until after the 132nd 
character on a line; consequently, BASIC can control the margin as the MARGIN statements specify 
without interference from the monitor. The SET TTY WIDTH monitor command is implemented in 5.02 
and later monitors. 

6.8 PAGE STATEMENT 

Normally, output to the Teletype is not divided into pages. The PAGE statement allows the user to 
set a pcge size of any positive number of lines. This page size remains in effect until the page size is 
set again by a PAGE statement, or until the Teletype is set bock into r>opqge mode by a NO PAGE 
statement (described in Section 6.9), or until the end of the program's execution . At the end of pro- 
gram execution, the Teletype is reset to nopage mode. 
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The form of the PAGE stafemenf is: 

PAGE [numeric formula] 

The numeric formula specifies the page size; it is truncated to an integer before the page size is set. 

When a PAGE statement is executed, BASIC ends the current output line (if necessary) , outputs a form- 
feed to position the Teletype paper at the top of the next page, and starts counting lines beginning 
with the next line of output. As soon as a new page is necessary, a form-feed is output. Whenever a 
PRINT statement containing <PA> is executed, the line count for the Teletype page is set back to zero 

6.9 NO PAGE STATEMENT 

The NOPAGE statement sets the Teletype back to nopage mode (i.e., the output to the Teletype is no 
longer automatically divided into pages) . The NOPAGE statement need only be used to change the 
mode back from page mode (set by a PAGE statement) because the default is nopage mode for all 
Teletype output. The form of the statement is: 

NOPAGE 

The NOPAGE statement has no effect on the execution of <PA> delimiters in PRINT statements; they 
are executed as usual . 
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CHAPTER 7 

VECTORS AND MATRICES 



Operations on lists and tables occur Frequently; therefore, a special set of 13 Instructions for matrix 
computations, all of which are identified by the starting word MAT, is used. These instructions are 
not necessary and can be replaced by combinations of other BASIC instructions, but use of the MAT in- 
structions results in shorter programs that run much faster. 



The MAT instructions are as follows: 
MAT READ a, b, c 

MAT c = ZER 
MATc =CON 
MAT c = IDN 
MAT PRINT a, b, c 



MAT INPUT V 
MAT b = a 
MAT c = a + b 
MATc =a -b 
MAT c = a * b 
MATc =TRN(a) 
MAT c = (k) * a 



MAT c = INV (a) 



Read the three matrices, their dimensions 
having been previously specified. 

Fill out c with zeros. 

Fill out c with ones. 

Set up c as on identity matrix. 

Print the three matrices. (Semicolons can 
be used immediately following any matrix 
which you wish to have printed in a close- 
ly packed format.) 

Call for the input of a vector. 

Set the matrix b equal to the matrix a. 

Add the two matrices a and b . 

Subtract the matrix b from the matrix a. 

Multiply the matrix a by the matrix b. 

Transpose the matrix a . 

Multiply the matrix a by the number k. The 
number, which must be in a parentheses, may 
also be given by a formula . 

Invert the matrix a. 
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7.1 AAAT INSTRUCTION CONVENTIONS 

The following convenfion has been aclopted for MAT instructions: while every vector has a component 
0, and •very matrix has a row and a column 0, the MAT instructions ignore these. Thus, if we have 
a matrix of dimension M-by-N in a MAT instruction, the rows ore numbered 1,2, . . . , M, and the 
columns 1,2, . . . , N . 

If a numeric arroy is referenced in a MAT statement other than MAT INPUT, BASIC sets up the array 
I as a matrix with two dimensions unless the user has specifically declared in a DIM (or DIMENSION) 
statement that the array is a vector. 

The DIM stotement moy simply indicate what the maximum dimension is to be. Thus, if we write the 
following: 

DIM M(20*35) 

M may have up to 20 rows and vp to 35 columns. This statement is written to reserve enough space for 
the matrix; consequently, the only concern at this point is that the dimensions declared are large 

I enough to accomodate the matrix. However, in the absence of DIM (or DIMENSION) statements, all 
vectors may have up to 10 components and matrices up to 10 rows and 10 columns. This ?s to soy that 

I in the absence of DIM (or DIMENSION) statements, this much space is automatically reserved for vec- 
tors and matrices on their appearance in the program. The actual dimension of a matrix may be deter- 
mined either when it is first set up (by a DIM statement) or when it is computed. Thus the following 

10 DIM M(20#7) 

50 MAT READ M 

reads a 20-by-7 matrix for M, while the following: 
50 MAT READ M< 17,30) 

reads a 17-by-30 matrix for M, provided sufficient space has been saved for it by writing 
I 10 oi^f:\'Sion' yc;^ 1^,35) 

7.2 MATC =ZER, MATC -CON, MAT C =IDN 

The following three instructions: 

MAT M = ZER (sets up matrix M with all components equal to zero) 

MAT M - CON (sets up matrix M with al! components equal to one) 

MAT M = IDN (set? up matrix M as an identity matrix) 
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act like MAT READ as far as the dimension of the resulting matrix is concerned. For example^ 
MATM -CON (7,3) 

sets up a 7-by-3 matrix with 1 in every component, while in the following: 
NAATM =CON 

sets up a matrix, with ones in every component, and a 10-by-lO dimension (unless previously given 
other dimensions). It should be noted, however, that these instructions have no effect on row and 
column zero. Thus, the following instructions: 

\P) DIM M(2P>,7) 

20 MAT READ M(7,3) 



35 MAT M=CON 

70 MAT M=ZER(15*7) 



90 MAT M=ZER<16*10) 

first read in a 7-by-3 matrix for M . Then they set up a 7-by-3 matrix of all Is for M (the acfual 
dimension having been set up as 7-by-3 in line 20) . Next they set up M as a 15-by-7 all -zero matrix. 
(Note that although this is larger than the previous M, it is within the limits set in 10.) An error mes- 
sage results because of line 90. The limit set in line 10 is (20 + 1) x (7 + 1) = 168 components, and in 
90 we are calling for (16 + 1) x (10 + 1) = 187 components. Thus, although the zero rows and columns 
are ignored in MAT instructions, they play a role In determining dimension limits. For example, 

90 MAT M=ZER<25*5) 

would not yield an error message. 

Perhaps it should be noted that an instruction such os MAT READ M(2,2) which sets up a matrix and 
which, as previously mentioned, ignores the zero row and column, does, however, affect the zero row 
and column. The redimensioning which may be implicit in an instruction causes the relocation of some 
numbers; therefore, they may not appear subsequently in the same place. Thus, even if we have first 
LET M(1,0) =M(2,0) = 1 , and then MAT READ M(2,2), the values of M(l ,0) and M(2,0) now are 0. 
Thus when using MAT instructions, it is best not to use row and column zero. 

7.3 MAT PRINT A, B, C 
The following Instruction: 

MAT PRINT A, B; C 
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caut«s th« tfiree matricas to b« prinfed with A and C in the normal format (i .«., with five eomponenti 
to a line and each new row starting on a new line) and B closely packed. 

Vectors may be used in place of matrices, as long as the above rules are observed . Since a vector liki 
V(I) is treated as a column vector by BASIC, a row vector has to be introduced as a matrix that has 
only one row, namely row 1 . Thus, 

DIMX(7), Y(0,5) 

introduces a 7-component column vector and a 5-component now vector. 

If V is a vector, then 

MAT PRINT V 
prints the vector V as a column vector. 

MATPRINTV, 
prints V OS a now vector, five numbers to the tine, while 

MATPRINTV; 
prints V OS a row vector, closely pocked . 

7.4 MAT INPUT V AND THE NUM FUNCTION 

The following instruction: 

MAT INPUT V 

calls for the input of a vector. The number of components in the vector need not be specified . Nor- 
mally, the input is limited by its having to be typed on one line. However, by ending the line of 
input with on ampersand (&) before the carriage return, the machine asks for more input on the next 
line. There must be at least one data item preceding the ampersand on the line or on error message 
will be issued. Note that, although the number of components need not be specified, if we wish to 
input more than 10 numbers, we must save sufficient space with a DIM statement. After the input, 
the function NUM equals the number of components, and V(l), V(2), . . ., V(NUM) become the num- 
bers that are input, allowing variable length input. For example. 



5 


LET S=0 


10 


MAT INPUT V 


20 


LET N=NU^ 


30 


IF N=0 THEN 99 


40 


FOR 1=1 TO N 


45 


LET S=S+V( I) 


50 


NEXT I 


60 


PRINT S/N 


70 


GO TO 5 


99 


FND 
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allows the user to type in sets of numbers, which are averaged. The program takes advantage of the 
fact that zero numbers may be input, and it uses this as a signal to stop. Thus, the user can stop by 
simply pushing RETURN on an input request. If an ampersand is used, it need only be preceded by a 
comma when the item immediately preceding it is an unquoted string. 

7.5 MATS = A 

This insfruclion sets up B to be the same as A and, in doing so, dimensions B to be the same as A, pro- 
vided that sufficient space has been saved for B . 

7.6 MATC=A+BANDMATC =A-B 

For these instructions to be legal , A and B must have the same dimensions, and enough space must be 
saved for C . These statements cause C to assume the same dimensions as A and B. Instructions such as 
MAT A = A ± B are legal; the indicated operation is performed and the answer stored in A. Only a 
single arithmetic operation is allowed; therefore, MAT D=A+B-Cis illegal but may be achieved 
with two MAT instructions. 

7 J MATC=A*B 

For this instruction to be legal , it is necessary that the number of columns in A be equal to the number 
of rows in B. For example, if matrix A has dimension L-by-M and matrix B has dimension M-by-N, 
then C = A * B has dimension L-by-N . It should be noted that while MAT A = A + B may be legal , 
MAT A = A * B is self-destructive because, in multiplying two matrices, we destroy components which 
would be needed to complete the computation. MAT B = A * A is, of course, legal provided that A 
is a "square" matrix . 

7.8 MATC=TRN(A) 

This instruction lets C be the tronspose of the matrix A. Thus, if matrix A is an M-by-N matrix, C is 
an N-by-M matrix. The instruction MAT C = TRN (C) is legal . 

7.9 MATC =(K) *A 

This instruction allows C to be the matrix A multiplied by the number K (i.e., each component of A 
is multiplied by K to form the components of C) . The numba- K, which must be in parentheses, may 
be replaced by a formula. MAT A = (K) * A is legal . 
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7.10 MAT C = INV(A) AND THE DET FUNCTION 

This instruction ollows C to be th« inverse of A. (A must be a "square" matrix.) The function DET is 
available after the execution of the inversion, and it will equal the determinant of A. Consequently, 
the user can obtain the determlnont of a matrix by inverting the matrix and then noting what value 
DET has. If the determinont of a matrix is zero, the matrix is singular and its inverse is meaningless. 
Wh«t an attempt Is mode to invert a matrix whose determinont is zero, the woming message Is printed, 

I SINGHLAK yfiThlX INVEhTED IN nn 
DET is set equal to zero, and the program execution continues. 

7.11 EXAMPLES OF MATRIX PROGRAMS 

The first example reods in A and B in line 30 and, in so doing, sets up the correct dimensions. Then, 
In line 40, A + A is computed and the an»ver is called C. This automatically dimensions C to be the 
same as A. Note that the data in line 90 results in A being 2-by-3and in B being 3-by-3. Both 
MAT PRINT formats ore illustroted, and one method of labeling a motrix print Is shown. 



10 


DIM 


A(20#20>, 


B< 


20«20)« C(20«20) 


20 


READ 


M*N 






30 


MAT 


READ A(M# 


N)* 


B(N*N) 


40 


MAT 


C=A*A 






50 


MAT 


PRINT c; 






60 


MAT 


C=A*B 






70 


PRINT 






75 


PRINT "A*B="# 






90 


MAT 


PRINT C 






90 


DATA 


2*3 






91 


DATA 


1 *2,3 






92 


DATA 


4>5#6 






93 


DATA 


1 *0#-l 






94 


DATA 


f?*-l »-\ 






95 


DATA 


-: »0*0 






99 


END 








RUN 










MATRIX 




08:31 




09-MAR-71 



2 4 6 

ci 1 (?l 1? 

A*B = 

-2 -2. -3 

-2 - 5 - 9 

TIME: f;,13 SECS. 
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The second example inverts an n-by-n Hilbert matrix: 



1 
1/2 

]/3 



1/n 



1/2 
1/3 

1/4 



1/n + 1 



1/3 

1/4 
1/5 



1/n +2 



1/n 
1/n + 1 

1/n +2 



l/2n-l 



Ordinary BASIC instructions are used to set up the matrix in lines 50 to 90. Note that this occurs after 
correct dimensions have been declared. A single instruction then r«ssults in the computation of the in- 
verse, and one more instruction prints it. Because the function DET is available after an inversion, 
it is taken advantoge of in line 130, and is used to print the value of the determinant of A. In this 
example, we hove supplied 4 for N in the DATA statement and have made a run for this case: 



5 




REM 


THIS PROGRAM INVERTS AN N-BY- 


-N HILBERT MATRIX 


10 




DIM 


A(20«20)« B(20 


«20) 




20 




READ N 






30 




MAT 


A=CON(N*N) 






50 




FOR 


1=1 TO N 






60 




FOR 


J=l TO N 






70 




LET 


A(I,J> = 1/(I-».J- 


1 ) 




80 




NEXT 


J 






90 




NEXT 


I 






100 




MAT 


B=INV<A) 






115 




PRINT "INV(A)=" 






120 




MAT 


PRINT B 






125 




PRINT 






130 




PRINT "DETERMINANT 


OF A=" DET 




190 




DATA 


A 






199 




END 








RUN 












HILMAT 




13:52 


20-OCT-69 




INV(A>= 










16. 


?)001 




-120.001 


240.003 


-140.002 


-120 


.001 




1200.01 


-2700.03 


1680.02 


240 


.00: 


) 


-2700.03 


6480.08 


-4200.05 


-140 


.002 


) 


1680.02 


-4200.05 


2800.03 



DETERN-INANT OF A = 1.65342E-7 

A 20-by~20 matrix is inverted in about 0.5 seconds. However, the reader is warned that beyond 
n = 7, the Hilbert matrix cannot be inverted because of severe round-off errors. 

7.12 SIMULATION OF N-DIMENSIONAL ARRAYS 

Although it is not possible to create n-dimensional arrays in BASIC, the metbod outlined below does 
simulate them. The example is of a three-dimensional array, but it has been written in such a way 
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that it oouid ba •oflty ehongad fp four dIm«nfIont or higher. W0 us« th« fact that funetians can hov« 
any number of variablai, and wo sot up a 1-to-1 corroipondonco botwoon tho components of the orroy 
and the components of a vector which equals the pn^duct of the dimensions of the array . For example. 
If the array has dimensions 2, 3, 5, then the vector has 30 components. A multiple line OEF could be 
used in ploce of the simple DEF in line 30 if the user wished to include error messages. The printout 
is in the form of two Z-hyS matrices. 



I 



10 


DIM V(1000) 






20 


MAT READ DO) 






30 


DEF FNA(I,J,K>:((I 


-1 )*D(2)-»'<J-l))*D<3)-»-K 




50 


FOR I»l TO D<1 > 






55 


FOR J»l TO D(2) 






60 


FOR K»l TO DC3) 






80 


LET V<FNA(I#J#K)>« 


I*2«J-fKt2 




90 


PRINT V<FNA<I*J#K>)# 




100 


NEXT K 






110 


NEXT J 






112 


PRINT 






115 


PRINT 






120 


NEXT I 






900 


DATA 2 #3 #5 






999 


END 






RUN 








3ARRAY 


08107 


27-0CT-69 




4 


7 


12 19 


28 


6 


9 


14 21 


30 


8 


11 


16 23 


32 


5 


8 


13 20 


29 


7 


10 


15 22 


31 


9 


12 


17 24 


33 
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CHAPTER 8 

ALPHANUMERIC INFORMATION (STRINGS) 



In previous chapters, we have deaif onl/rwitti numerical i n forma Hon . However, BASIC also proci 
alphanumeric infbrmafion In the form of strings. A string is a sequence of characters, each of which is 
a letter, a digit, a space, or some other choracter. A string, however, cannot contain a choracter 
that is a line terminofor (i .e., a line feed, form feed, or vertical tab), or a carriage return. 

String constants are normally enclosed in quotes (e.g . , "TOTAL VALUE") . In some cases in some 
statements, the quotes can be omitted. Where this is allowed, it is explicitly stated in the description 
of the particular type of statement found elsewhere in this manual . 

Variables may be introduced for simple strings and string vectors, but not for string matrices. Any 
simple variable, followed by a dollar sign ($), stands for a string; e.g., A$ and C7$. A vector vari- 
able, followed by $, denotes a list of strings; e.g . , V$(n) or A2$(n), where n is the nlk> string in the 
list. For example, V$(7) is the seventh string in the list V. 

8.1 READING AND PRINTING STRINGS 
Strings may be read and printed . For example: 

10 READ A$# B$* CS 

20 PRINT C$; BS; A$ 

30 DATA ING*SHAR>TIME- 

40 END 

causes TIME-SHARING to be printed. The effect of the semicolon in the PRINT statement is consistent 
with that discussed in Chapter 6; i .e. , it causes output of the alphanumeric items in a close-pocked 
form. CommcB, <PA> delimiters, and TABs may be used as in any other PRIN T statement . The loop: 

70 FOR 1=1 TO 12 

80 READ M$(I) 

90 NEXT I 

reads a list of 12 strings. 
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In place of the READ and PRINT, corresponding MAT instructions may be used for lists. For example^ 
MAT PRINT M$; causes the members of the list fo be printed without spaces between them. We may 
also use INPUT or MAT INPUT. After a MAT INPUT, the function NUM equals the number of strings 
inputted. When using the MAT INPUT statement, you can continue inputting strings on the ntoit line 
by typing an ampersand (&) on the current line immediately before pressing the RETURN key. A comma 
must precede the ampersand If the string immediately before the ampersand is unquoted. If the string 
is unquoted and a comma does not seporote the string from the ampersand, the ampersand will be 
treated as part of the string. Thus, either MARY, & or "MARY"& is legal Input. 

As usual, lists are assumed to have no more than 10 elements; otherwise, a DIM (or DIMENSION) 
statement is required. The following stotement; 

10 DIM M$(20) 

saves space for 20 strings in the M$ list. 

In the DATA statements, numbers and strings may be intermixed. Numbers ore OMignwl only to numer- 
ical variables, and strings only to string variablei. Strings in DATA statements are recognized by the 
fact that they stort with a letter. If they do not, they must be enclosed in quotes. The same require- 
ment holds for o string containing a comma. For example: 

I 90 DATA 10, ABC, 5, "AFG", "SEPT. 22, 1963", 2 

The only convention on INPUT and MAT INPUT is that a string containing a comma must be enclosed 
in quotes. The following example shows the correct format for o response to a MAT INPUT: 

MR. JONES, "146 MAIN ST., MAYNARD, MASS." 

8.2 STRING CONVENTIONS 

In every method of inputting string information into a program (DATA, INPUT, MAT INPUT, etc.), 
leading blanks are ignored unless the string, including the blanks, is enclosed in quotes. String con- 
stants (which must be enclosed in quotes) or string variables may occur in LET and IF-THEN statements. 
The following two examples are seif-explanafory: 

10 LET Y$="YES" 

20 IP" A7^^"^FS" THEN ?i*.W. 
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The relation "<" is interpreted as "eorlier in alphabetic order." The other relational symbols work in 
a similar manner. In any comparison, trailing blanks in a string are ignored, os in the following: 

"YES" ="YES " 

We illustrate these possibilities by the following program, which reads a list of strings and alphabetizes 

them: 

10 DIM L5(50) 

20 READ N 

30 MAT READ LS<N) 

40 FOR 1=1 TO N 

50 FOR J=l TO N-I 

60 IF LS(J) < L$<J-»-l) THEN 100 

70 LET A$=L$<J) 

80 LET L$(J)=L£( J+1 > 

90 LET LS( J+1 )sA$ 

100 NEXT J 

110 NEXT I 

120 MAT PRINT LS 

900 DATA 5#0NE#TW0#THREE*F0UR*FIVE 

999 END 



Omitting the $ signs in this program serves to read a list of numbers and to print them in increasing 

order. 



A rather common use is illustrated by the following; 



330 PRINT "DO YOU WISH TO CONTINUE"! 

340 INPUT AS 

350 IF A$s"YES" THEN 10 

360 STOP 



8 .3 NUMERIC AND STRING DATA BLOCKS 

Numeric and string data are kept in two separate blocks, and these act independently of each other. 
The RESTORE statement resets both the dato pointers for the numerical data and string dofa bock to the 
beginning of their blocks. RESTORE* resets the pointer only for the numerical data and RESTORE $ 

only for the string data. 

8 .4 THE CHANGE S TATEMENT 

In BASIC, it is very easy to obtain the individual digits in a number by using the function INT. One 
way >o obtain the individual characters in a string is with the instruction CHANGE. Tlie use of 
CHANGE is best illustrated with the following examples. 
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5 


DIM A(65) 






10 


READ AS 








15 


CHANGE 


AS TO A 






20 


FOR I«0 


TO A<0) 






25 


PRINT A<I)I 






35 


NEXT I 








40 


DATA ABCDEFGHIJKLMNOPQRSTUVWXYZ 




45 


END 








RUN 










CHANGE 


13:55 


20-OCT-69 




26 


65 66 


67 68 69 


70 71 72 73 


74 


80 


81 82 


83 84 85 


86 87 88 89 


90 



75 76 77 78 79 



In line }5, the instruction CHANGE A$ TO A has caused the vector A »o hove as its zero component 
the number of characters in the string A$ and, also, to hove certoin numbers in the other components. 
These numbers ere the American Standard Code for Information Interchange (ASCII) numbers for the 
clwracters appearing in the siring (e.g . , A(]) is 65 - the ASCII number for A) . 

Table 8-1 lists the ASCII numben for printing and nonprinting characters. Note that the nonprinting 
chorocters ore shown in the table at codes containing two or three letters. These codes ore not output; 
the actual meaning of the ASCII number is output (e.g. , 7 causes the bell to ring, it does not pr'mf 
BEL). 



Table 8-1 
ASCII Numbers ond Equivalent Characters 



ASCII 
Decimal 
Number 


Character 


Meaning 


ASCII 
Decimal 
Number 


Character 


Meaning 




1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 


NUL 

SOH 

STX 

ETX 

EOT 

ENQ 

ACK 

BEL 

BS 

HT 

LF 

VT 

FF 

CR 


Null 

Start of heodins 

Start of fwt 

End of text 

End of transmission 

Enquiry 

Acknowledge 

Bell 

Backspace 

Horizontal fdb 

Line feed 

Vertical tab 

Form feed 

Carriage return 


14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
17 


SO 

SI 

DLE 

DC1 

DC2 

DC3 

DC4 

NAK 

SYN 

ETB 

CAN 

EM 

SUB 

ESC 


Shift out 

Shift in 

Data link escape 

Device control 1 

Device control 2 

Device control 3 

Device control 4 

Negative acknowledgement 

Synchronous idle 

End of transmission block 

Cancel 

End of medium 

Substitute 

Escape 


Note: Recall that line feed (LF), form feed (FF), vertical tob (VT), and carriage return (CR) are 
illegal in strings. 



(continued on next page) 
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Table 8-1 (Cont) 
ASCII Numb«Mrs and Equivalent Characters 





ASCII 






ASCII 








Decimal 


Character 


Meaning 


Decimal 


Character 


Meaning 




Number 






Number 








28 


FS 


File separator 


72 


H 


Upper case H 




29 


GS 


Group separator 


73 


I 


Upper case I 




30 


RS 


Record separator 


74 


J 


Upper case J 




31 


US 


Unit separator 


75 


K 


Upper case K 




32 


SP 


Space or blank 


76 


L 


Upper case L 




33 


I 


Exclamation mork 


77 


M 


Upper case M 




34 


II 


Quotation mark 


78 


N 


Upper case N 




35 


# 


Number sign 


79 


O 


Upper case O 




36 


$ 


Dollar sign 


80 


P 


Upper case P 




37 


% 


Percent sign 


81 


Q 


Upper case Q 




38 


& 


Ampersand 


82 


R 


Upper case R 




39 


1 


Apostrophe 


83 


S 


Upper case S 




40 


( 


Left parenthesis- 


84 


T 


Upper case T 




41 


) 


Right parenthesis 


85 


U 


Upper case U 




42 


* 


Asterisk 


86 


V 


Upper case V 




43 


+ 


Plus sign 


87 


w 


Upper case W 




44 


/ 


Comma 


88 


X 


Upper case X 




45 


- 


Minus sign or hyphen 


89 


Y 


Upper case Y 




46 


. 


Period or decimal point 


90 


z 


Upper case Z 




47 


/ 


Slash 


91 


c 


Left square bracket 




48 





Zero 


92 


\ 


Back slash 




49 


1 


One 


93 


] 


Right square bracket 




50 


2 


Two 


94 


A or t 


Circumflex or up arrow 




51 


3 


Three 


95 


^or 


Back arrow or underscore 




52 


4 


Four 


96 




Grave accent 




53 


5 


Five 


97 


a 


Lower case a 




54 


6 


Six 


98 


b 


Lower case b 




55 


7 


Seven 


99 


c 


Loww case c 




56 


8 


Eight 


100 


d 


Lower case d 




57 


9 


Nine 


101 


e 


Lower case e 




58 


: 


Colon 


102 


f 


Lower case f 




59 


/ 


Semicolon 


103 


g 


Lower case g 




60 


< 


Left angle bracket 


104 


h 


Lower case h 




61 


= 


Equal sign 


105 


i 


Lower case i 




62 


> 


Right angle bracket 


106 


1 


Lower case j 




63 


? 


Question mark 


107 


k 


Lower case k 




64 


^ 


At sign 


108 


1 


Lower case 1 




65 


A 


Upper case A 


109 


m 


Lower case m 




66 


B 


Upper case B 


110 


n 


Lower case n 




67 


C 


Upper case C 


111 


o 


Lower case o 




68 


D 


Upper case D 


112 


P 


Lower case p 




69 


E 


Upper cose E 


113 


q 


Lower case q 




70 


F 


Upper case F 


114 


r 


Lower case r 




71 


G 


Upper case G 


115 


s 


Lower case s 



(continued on next page) 
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Table 8-1 (Conf) 
ASCII Numbers and Equivalent Characters 



ASCII 






ASCII 






Decimal 


Charocter 


Meaning 


D«K:imal 


Character 


Meaning 


Number 






Number 






116 


t 


Lower case t 


122 


z 


Lower case z 


117 


u 


Lower case u 


123 


{ 


Left brace 


118 


V 


Lower case v 


124 


1 


Vertical line 


119 


w 


Lower case w 


125 


} 


Right brace 


120 


X 


Lower case x 


126 


-' 


Tilde 


121 


y 


Lower case y 


127 


DEL 


Delete 



The other use of CHANGE is illustrated by the following: 



10 


FOR 1=0 TO 5 


15 


READ A(I ) 


20 


NEXT I 


25 


DATA 5,65*66#67#68#69 


30 


CHANGE A TO AS 


35 


PRINT A$ 


A0 


END 



This program prints ABCDE because the numbers 65 through 69 ore the code numbers for A through E. 
Before CHANGE is used in the vector-to-string direction, we must give the number of characters 
which are to be in the string as the zero component of the vector. In line 15, A(0) is read as 5. The 
following is a final example: 



5 

10 

20 

30 

35 

40 

50 

60 

70 

RUN 

EXAMPLE 



DIM V(128) 

PRINT "WHAT DO YOU WANT THE VECTOR V TO BE" J 

MAT INPUT V 

LET VC0)=NUM 

IF NUM=« THEN 70 

CHANGE V TO AS 

PRINT AS 

GO TO 10 

END 



13:59 



20-OCT-69 



WHAT DO YOU WANT THE V TO BE? 40 , 45 * 60 * 45> 89* 90 

C-<-YZ 

WHAT DO YOU WANT THE VECTOR V TO BE? 33 /34> 35>36#37,38* 39> 40,41 *42 « 

? 43i44*45>46>47*48>49,50 

!"#$%« • ( )* + *- ./012 

WHAT DO YOU WANT THE VECTOR V TO BE? 

TIME: 0.10 SECS. 
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Note fhat in this example we have used the ovailability of the function NUM after a MAT INPUT to 
find the number of characters in the string which is to result from line 40. 

8.5 STRING CONCATENATION 

Strings can be concatenated by means of the plus sign operator (+) . The plus sign can be used to con- 
catenate string formulas wherever a string formula is legal, with the exception that information cannot 
be stored by means of LET or CHANGE statements in concatenated string variables. That is, concate- 
nated string variables cannot appear to the left of the equal sign in a LET statement or as the right- 
hand argument in a CHANGE statement. For example, LET A$=6$+C$ is legal, but LET A$+6$^$ is 
not; and similarly, CHANGE A$-+6$ TO X is legal , but CHANGE X TO A$4fi$ is not. An example 
of string concatenation is: 

10 INPUT A$ 

20 CHAIN AS-f" MAIN.PRG" 

30 END 

RUNNH 

?DTA4: 

The program causes chaining to DTA4:MAIN .PRG, which is the program MAIN.PRG on DECtqse 
drive 4. 

8.6 STRING MANIPULAHON FUNCTIONS 

A number of functions have been implemented that perform manipulations on strings. These functions 
are LEN, ASC, CHR$, VAL, STR$, LEFT$, RIGHTS, MID$, SPACES, and INSTR. Functions that 
return strings have names that end in a dollar sign ($); those functions that return numbers have names 
that do not end in a dollar sign . 

8.6.1 The LEN Function 

The LEN function returns the number of characters in a string. It has the form: 
LEN (string formula) 
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Examples: 



10 READ Af> B$ 

20 PRINT LFN(AS+B$+"AROUND" ) 

30 DATA "UP, ", "DOWN, AND " 

40 END 

RLINNH 

20 

10 IF LFN CA?)<>0 THEN 30 

20 PRINT "A$ IS A NULL STRING' 

30 END 



8.6.2 The ASC and CHR$ Functions 

The ASC and CHR$ functions perform conversion of ASCII numbers in fhe same manner as the CHANGE 
statement. The ASC function converts one character to its ASCII decimal equivalent, and the CHR$ 
function converts an ASCII decimal number to its equivalent character. 

The ASC function has the form: 
ASC (argument) 

The argument can be either one character or the two- or three-letter code ^q\ represents a nonprinting 
character (refer to Table 8-1 for these codes) . ASC returns the equivalent ASCII decimal number for 
the character. 

The CHR$ function has the form: 

CHR$ (numeric formula) 

The value of the numeric formula is truncated to an integer that must be in the range through 127 
and cannot be the numbers 10 through 13. If the Integer is less than or greater than 127 or one of 
the numbers 10 through 13, an error message is issued. This integer is then interpreted as an ASCII 
decimal number that is converted to its equivalent character (refer to Table 8-1 for the ASCII numbers 
and the equivalent characters). 

An example of the ASC and CHR$ functions follows. 

5 FOR T=ASC(A) TO ASC<A)+3 

10 PRINT "THIS IS TEST " + CHR$(T) 

This is fhe beginning of a FOR loop that successively prints: 
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THIS IS TEST A 



THIS IS TEST B 



THIS IS TEST C 



THIS IS TEST D 



8.6.3 The VAL and STR$ Functions 

The VAL and STR$ funcfions perform conversions from numben to strings and strings to numbers. The 
form of the VAL function is: 

VAL (string formula) 

The string formula must look like a number; if it does not, an error message is issued. VAL returns the 
actual number that the string represents. The VAL function does not return the ASCII value of the 
number that the string represents, it returns the number. For example, VAL ("25") returns the number 
25. The 25 that is the argument to VAL is a string , the 25 that VAL returns is a number . 

If the string argument represents a number that is greater than about 1 .7E38 in magnitude or non-zero, 
but less than about 1 .4E-39 in magnitude, the appropriate overflow or underflow message is issued and 
the value returned is about 1 .7E38, about -1 .7E38, or zero, whichever is appropriate. 

Example: 



10 


INPUT Af 


20 


PRINT VAL (A$)*2 

• 


100 


• 
• 

END 


RUNN'H 




72.A61 1 121 


4.92222 



The STR$ function returns the string representation (as a number) of its argument. The form of STR$ is: 
STR$ (numeric fomnula) 

The string that is returned is in the form in which numbers are output in BASIC (see Section 6.1) . For 
example, PRINT STR$ (1.76111124) prints the siring 1.76111. 
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£xampi< 



10 


A=2561 


2Pi 


BSsSTRSCA) 


30 


PRINT BS 


40 


END 


RUfsJNH 





2561 



10 


A=25 




20 


BJ=STRf <A) 




30 


CHANGE BS TO X 




40 


PR INT X(0); X(l ); 


X<2) 


50 


END 




RUNNH 







50 53 



8.6.4 Ihm LEFTS, RIGHTS, and MID$ FuncHora 

TTie LEFTS, RIGHT), and MID$ functions return substrings of their string arguments. 

TTie LEFTS function returns a substririg of a specified number of choracten starting with the leftmost 
chorocter of its string argument. The LEFTS function hos the form: 

LEFTS (string formula, numeric formula) 

The value of the numeric formula is truncated to an integer that specifies the number of characters in 
the substring. If the specified number of charocters is greater than the ler>gth of the string argument, 
the entire string is returned. If the specified number of characters is less than or equal to zero, an 
error metsqge is issued. For oKomple, 

10 PRINT LEFTSCTHIS IS A TEST"*?) 

prints the substring 

THIS IS 

The RIGHTS function returns o substring of specified length ending at the rightmost character of its 
string argument. The form of the RIGHTS function is: 

RIGHTS (string formula, numeric formula) 

The value of the numeric formula is truncated to an integer that specifies the number of characters in 
the substring to be returned. If the number of characters is greater than the length of the string argu- 
ment, the entire string is returned . If the specified number of characters is less than or equal to zero, 
an error mesuge is issued. For example. 

Version 17 BASIC 8-10 August 1971 



5 A$="HERE AND THERE" 

10 PRINT RIGHT$(AS,5) 

prints the subsfring 

THERE 

The MID$ function returns a substring of its string argument starting a specified number of characters 
from the leftmost character of the string argument. The number of characters in the substring can also 
be specified . The form of the MID$ function is: 

MID$ (string formula, numeric formula-l , numeric formula-2) 

The second numeric formula, which is truncated to an integer that specifies the number of characters 
in the substring, is optional and can be omitted. If this argument is omitted, the substring includes all 
the remaining characters in the string argument. The first numeric formula is truncated to an integer 
that specifies the leftmost character at which the substring is to stcart. MID$ returns a null string if the 
first numeric formula when truncated to an integer is greater than the number of characters in the 
string argument; if it is less than or equal to zero, an error message is issued. If the number of charac- 
ters in the substring is specified (by the second numeric formula) and is greater than the nuinber of 
characters in the string argument beginning at the specified character, MID$ returns the string argu- 
ment starting at the specified character. If the number of characters is less than or equal to zero, an 
error message is issued. 

Examples: 

IP) PRINT MID$ ("TOTAL OUTPUT IN MARCH", 17) 

RUNNH 
f^RCH 

10 PRINT MID5 <"ABCDEF",3*1 ) 

RDNNH 
C 

8 .6 .5 The S PACE$ Function 

The SPACES function returns a string of spaces. The form of the SPACES function is: 
SPACES (numeric formula) 
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The value of the numeric formula i$ truncated to on integer that specifies the number of spaces in the 
string to be returned. If the Integer is less than or equal to zero or greater than 132, an error messoge 
is issued. 



Example: 



10 AS«B$s"HERE" 

20 FOR T«l TO 3 

30 PRINT ASI SPACE$(T)I BS 



RUNNH 



HERE HERE 
HERE HERE 
HERE HERE 



8 .6 .6 The INS TR Function 



The INSTR function searches for a specified substring within a string and returns the position of the fint 
character of that substring within the string . The pofitions are numbered from the leftmost chara c t e r 
in the string . The user can optionally specify that the search for the substring begin at a character 
position other than the first. The form of the INSTR function is: 

INSTR (numeric formula, string formula-1 , string formula-2) 

The numeric formula, which is truncated to an integer that specifies the starting character position, is 
optional and con be omitted . If the numeric argument is omitted, the ^search begins at the first charac- 
ter position. The first string argument is the string searched; the second string argument is the sub- 
string searched for. If the value of the numeric formula (if specified) is greater than the number of 
charocters In the string or if the substring cannot be found in the string, INSTR returns a value of 
zero. If the value of the numeric formula is less than or equal to zero, an error message is issued. 
If the second string argument is a null string, INSTR returns the character position at which the search 
started, unless that position Is past the last character in the string . In that cose, INSTR returns a 
value of zero. 
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Examples: 

^ 1(?) PRINT INSTK ("ABCDCFF"* "C" > 



RUNNM 
3 

10 PRINT INSTH (4^"ABCDCEF""' "C") 



RUNNH 

5 
Note l+iat if the second string argument occurs more than once within that part of the first string argu- 
ment that is searched, the first occurrence found is used. 
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CHAPTER 9 

EDIT AND CONTROL 



There are BASIC commands which: 

1 . Create, edit and manipulate files, 

2. Run BASIC programs, 

3. Cause the user to enter monitor mode, 

4. Obtain information, and 

5. Set the input mode. 

These commands operate on an entire BASIC program, and therefore are functionally different from the 
BASIC statements which comprise the program. For example; typing the LENGTH command causes 
BASIC to output the length (in characters) of the current program in the user's core memory. If, 
however, the user includes the LENGTH command as a statement in his BASIC program, an error is 
generated and the program cannot run . 

9.1 CREATING THE FILE IN CORE MEMORY 

A file is a collection of data. This data may be BASIC statements, thereby comprising a BASIC 
program; it may be data for a BASIC program, or it may be a combination of a program and data. 
Seven media are used to store files. They are: 

1 . Core memory, 

2. Disk pack and drum, 

3. DECtape and magnetic tape, and 

4. Paper tape end punch cards. 

At the time the user types R BASIC, a core memory area is allocated for his use and cleared of any 
previous user's files. Core memory may be thought of as a working storage area. Any work done on a 
file is performed in core memory, however, the user may not keep files in core memory for a prolonged 
period of time. Permanent storage of that nature is reserved for storage devices such as disk, magnetic 
tape, DECtape, poper tope and punch cards. 
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In order fo creote a new file, edit an exisfing file or run a file conl-oining a BASIC program, the file 
must first be established in t+ie user's core memory. The NEW command, the OLD command and the 
default to NONAME provide the means by which a file is established in core memory. Refer to the 
WEAVE command In Paragraph 9.3 for an additional method of moving files into core memory. 



NEW filenome.ext 



The user gives the NEW command to establish a new file in core memory. This file is given 
the name filenome.ext. Before establishing the new file, BASIC clears the user's core memory. 
Thus, the file previously in user core (if any) is destroyed. (To retain the file, a SAVE 
command should be issued before the NEW command is given. Refer to Parograph 9,3.) 

When issuing the NEW command, filenome.ext may be omitted. In this case BASIC asks for 
tfie filenome.ext by typing: 

NEW FILE MAME-- 
The user types the filenome.ext. 

If the extension is not included (i.e., .ext is left out) BASIC assumes it is .BAS. If a carriage 
return is substituted for filename. ext, BASIC types ?WHAT? and disregards the NEW command. 

Once the NEW command is given, BASIC establishes the file by clearing the user's core and 
assigning the filename. When it is reody to accept the contents of the file, BASIC types 
READY. The user then inputs the file simply by typing It on the terminal. 

When the user is finished inputting the new file> he types "tC to return to the BASIC user 
mode (he was In Input mode). 

The user should be aware that at this point the new file is only In core memory and not in 
permanent storage. This means that a command which clears the user's core memory (for 
example; a BYE, NEW or OLD command) destroys the file the user just input. The SAVE and 
REPLACE commands (described in Paragraph 9.4) store a file on the disk. 
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READY 

NEW RESIS.BAS Establish a new file called RESIS.BAS, 

READY 

10 INPUT Rl, R2, R3 Type the file. 

20 R= (Rl«R2*R3) / ((R2*R5) + R1*(R2+R3)) 

30 PRINT -THE PARALLEL RESISTANCE = "j R 

40 END 

SAVE Put RESIS.BAS on disk storage. 

READY 



OLD dev: filename. ex t 



By using the OLD command, the user replaces the file in core memory with one from a storage 
device. As with the NEW command, the contents of the user's core memory are cleored 
before the designated file is brought in. The storage device on which the file is located is 
given by dev:. Omitting dev: causes the default device (i.e., disk) to be selected. The file 
is identified by filenome.ext. If omitted, BASIC requests the filename. ext by typing: 

OLD FILE NAME— 

The user should then type the filenome.ext. If he presses carriage return, the command 
aborts and returns to BASIC user level . If the extension is omitted .BAS is assumed. The file 
obtained from the device must have line numbers. The indicated filename is now the current 
filename. 

Retrieving a file from a device in this manner does not delete the file on the source storage 
device. However, if the user modifies the file in core memory, thereby creating a new 
version of that file, the new version is not retained on a permanent storage device until a 
SAVE, REPLACE or COPY command is executed. (Refer to Paragraph 9.4.) 

READY 

OLD DTAl: SOS, OUT Bring a copy of the file SOS. OUT, which is 

presently on DTAl :, into user core, 
READY 

Default to NONAME 

There is a third way to establish a file in core memory. After BASIC responds with READY, 
the user may start typing the contents of his file. By this action the user is adding to the 
material In core memory without assigning a new name to core memory and without initially 
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clearing fhe contents of core. If no filename is assigned to core memory (as is the case after 
issuing R BASIC), it takes the default name NONAME. Any action the user takes with the 
file should use NONAME unless a RENAME command is given. 

•R BASIC 

READY, FOR HELP TYPE HELP 

05 INPUT El Type in contents of 

10 INPUT R f«'«- 

25 I:EI/R 

35 PRINT -THE EQUIVALENT CURRENT IS", I, " AMPERES" 
40 END 

LIST Request output of 

file in user core. 

NONAME 14t0C I2-SEPT-73 Filename is called 

NONAME since no 
filename was specified. 

•5 INPUT El 

10 INPUT R 

25 I=E1/R 

35 PRINT "THE EQUIVALENT CURRENT IS", I, * AMPERES" 

40 END 

READY 



The RENAME command alters the name of the file in core memory. This function is useful 
especially after a default to NONAME. 



RENAME dev:filename.ext 



The name of the user's file in core memory Is changed to dev:filename.ext when the user 
issues the RENAME command. 

If dev: and/or .ext ore left out when the command is given, the original dev: and/or .ext 
are kept. 

READY 

RENAME EQUIV.3AS 

READY 
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9.2 LISTING FILES 

Often the contents of a file in the user's core memory or of a file in permanent storage must be ex- 
amined. The LIST, QUEUE and +0 commands produce a printed copy of the desired file. In 
addition, refer to the COPY command in Paragraph 9.4. 



LIST range, range, ... 
LISTNH range, range, ... 



The LIST and LISTNH commands, given without any range arguments, print the entire contents 
of a file in the user's core memory area. LIST prints a one-line heading which includes the 
name of the file, the time and the date. LISTNH prints the specified lines without the 
heading . 

If only part of the core storage file is desired, range arguments ore used to identify the 
desired lines. If more than one part is needed, additional range arguments can be added 
provided that each succeeding range specification is separated by a comma. 

Range arguments are permitted in one of two forms: 

n A single line is printed when its line-number, n, is used as a range argument, 

x-y A group of lines is output when the range argument is put in the form x-y, where x is 
the line-number of the first line in the group, and y is the line-number of the last line 
in the group. 

The lines are printed on the user's terminal in order of ascending line-numbers. 



LISTREVERSE 
LISTNHREVERSE 



LISTREVERSE and LISTNHREVERSE print the contents of the user's core memory area in order of 
descending line numbers. LISTREVERSE precedes the output with a heading, LISTNHREVERSE 
eliminates the heading. 
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LISTREVERSE 

EQUIV.3AS I4JI5 12- SEPT- 73 



40 END 

35 PRINT "THE EQUIVALENT CURRENT IS", I, " AMPERES' 

25 I=E/R 

10 INPUT R 

05 INPUT E! 

READY 



to 



to suppresses the oufput of a file. BASIC responds with READY after terminotlon. 



QUEUE filenome.ext/UNSAV^nCOPIES/LIMITm 



The QUEUE command causes the specified file to be printed on the line printer. This file 
must have been previously stored on disk by a SAVE, REPLACE or COPY command. The file 
in core storage is not affected by this command. 

If the extension of the filename is omitted, .BAS is assumed. 

The three optional switches /UN SAVE, /nCOPIES, and /LIMITm can be included in any order, 
UNSAVE and LIMIT can be abbreviated to as little as U and L respectively while the word 
COPIES can be omitted entirely. For example, QUEUE RETURN/U/Ll 2/2 tells BASIC to list 
two copies of the file RETURN .BAS, but not exceed 12 pages in doing so. The file is deleted 
(unsaved). 

When the /UNSAVE switch Is given, the file is immediately removed from the user's permanent 
(disk) storage area, then it is listed. Without this switch the file is retained. The n/COPIES 
switch causes n copies of the file to be printed to a maximum of 63 copies. Without this 
switch, one copy is printed. The /LIMITm switch indicates the maximum number of line 
printer poges that can be printed. Without this switch 200 pages is the limit. The arguments 
n and m must be Integers. 

More than one file listing can be requested by placing a comma between each succeeding 
filename and Its associated switches. 
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QUEUE EQUIV.BAS/2C0PIES 

FILES 3UEUEDI 
EQUIV.BAS 

READY 



Request 2 copies of the file EQUIV.BAS 
be output on the line printer. 



9.3 EDITING A FILE IN CORE MEMORY 

After a file has been entered into the user's core memory by a NEW command, OLD command or a 
default to NONAME, the user may want to edit the file to eliminate any errors. 

9.3.1 Replacing Complete Lines 

The user inserts new lines and replaces existing lines by first typing the appropriate line-nuinber and 
following it with a line of text. 

Type Line Number 

When BASIC is in user mode, typing a line number followed by text can have one of two 
consequences. 



1 . If there is no existing line associated with that line-number, BASIC enters both the 
new line-number and the line into the file in the user's core memory, 

2. If there is already a line in the core file with the specified line-number, thot line Is 
deleted and the new line is inserted In its place. 



Simply typing a line number without any text establishes a blank line. 



9.3.2 Deleting Lines 



DELETE range, range, ... 



The DELETE command eliminates lines from the user's file in core memory. The range 
arguments specify which line(s) are to be eliminated. 
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Range argument's are permlffed In one of two fomu: 

n A single line is deleted when its line*number, n, is used as a range argument. 

x-y A group of lines is deleted when the range argument 1$ put In the form x-y, where x is 
the line-number of the first line in the group, and y is the line-number of the last line 
in the group # 

DELETE 125, 250*429, 900 Delete line 125, lines 250 thru 425 

inclusive and line 900. 
READY 

9,3.3 Renumbering Lines in the Core File 






ESBQUENCE n,f,k 



RESEQUENCE modifies the line-lumbers of the file in user core. Une«tiumber f is changed 
to line-number n. Succeeding lines are then Incremented by k, f must be leis thqn n. 

When f Is omitted entirely the first line of the file takes line-number n, and succeeding 
lines take line-numbers n+k, n+2k, and so forth. Even though f Is omitted, both commas 
are retained. 

In cases where a single argument, n, is given, the first line-number Is changed to n and 
succeeding line-numbers are produced, Incrementing by 10. 

RESEQUENCE 100,25, 100 Renumber line 25 to 100 and number 

succeeding lines incrementing by 100. 

9.3.4 Clearing the Entire File 



SCRATCH 



The SCRATCH command deletes all line-numbers and their associated lines from user core. 
The name associated with the file in core Is kept the some. 

SCRATCH 
READY 
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9.3.5 Merging Another File Into the File 



WEAVE dev;filename.ext 



The WEAVE command locates a file with the name filename. ext on dev:. This file is then 
merged into the file in user core. If two lines have the same line-number, the line in the 
file named in the WEAVE command replaces the line in the file in user core. Otherwise, the 
lines from the file are merged in sequential line-number order into the file in user core. 

OLD RESIS, BAS Take a copy of file RE5IS,BAS from disk storage and 

put it in user core. 
READY 
LISTNH List RESIS. BAS 

10 INPUT Rl, m, R3 

80 Rx (RI*R2*R3) / <(R2*R3) -► RI«<R2-»-R3) ) 

30 PRINT -IHE PARALLEL RESISTANCE : "j R 

40 END 

READY 

OLD EQUI V. BAS Take EQUIV.BAS and put it in user core. (RESIS, BAS 

is cleared from user core.) 
READY 
LISTNH List EQUIV.BAS 

05 INPUT El 
10 INPUT R 
25 I=E1/R 

35 PRINT "THE EQUIVALENT CURRENT IS", I, " AMPERES" 

40 END , 

READY 

WEAVE RESIS, BAS MERGE RESIS, BAS into the file in user core 

(EQUI V, BAS). 
READY 
LIST 

EQUIV.BAS 15:25 12-SEPT-73 

05 INPUT El Line 05 is inserted. 

10 INPUT Rl, R2, R3 Line 10 is replaced, 

20 Rr (R1*R2*R3) / ((R2*R3) + R1*(R2+R3)) Line 20 is inserted, 

25 I = E1/R Line 25 is retained, 

30 PRINT "THE PARALLEL RESISTANCE = "; R Line 30 is inserted, 

35 PRINT "IHE EQUIVALENT CURRENT IS", I, " AMPERES" 

. _ _.,_ Line 35 is retained. 

40 END 1 • >n • I J 

Line 40 is replaced. 

READY 
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9.4 TRANSFERRING FILES 

Once a user has prepared a file In his portion of core memory, he will want to move the modified file 
to permonent storage such as, disk, DECtape, or papertape. In addition, the user may wont to move 
files from one storage device to another, especially from disk to DECtape. 

9,4,1 Transferring Files From the User's Core Storage 

Upon creating, weaving and editing a file in core storage, a user wants to retain a copy of the file 
for future use. The SAVE and REPLACE commends ore then used. 



SA VE de V :f i I enome . ex t 



Tlie SAVE commond puts tfie file currently in user core on the storage device dev:, under the 
name of filerrame.ext. 

If dev: is omitted OSK: is ossumed. If ,ext is omitted .BAS is assumed. The filename, ext moy 
be omitted, in which cose the current filename. ext is used. The extension cannot be specified 
if the filename is omitted. 

The SAVE command does not overwrite on existing file of the some name, REPLACE should be 
used if that result is desired. 

SAVE Instruct BASIC to SAVE the present file on disk storage. 

READY 



REPLACE devrfilenome.ext 



The REPLACE command deletes on existing file called filename. ext which is on the device 
dev: and inserts a new file from user core in its place, keeping the some name. 

If the device is DSK: or DECtape, the old file must be present on the device or on error 
message will be issued. 
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The arguments dev:, filename, and .ext can be omitted with the same conditions described 
for the SAVE command. 

Also, refer to the OLD command (Paragraph 9.1) and the WEAVE command (Paragraph 9,3.5), 
both of which transfer lines into core memory. 

REPLACE 
READY 

9,4,2 Transferring Files From One Storage Device to Another 



COPY devi rfiienomel ,ext >dev2:filename2,ext 



The COPY command reads fllenamel .ext on devi : and transfers a copy of it to dev2: where it 
is given the name filename2.ext. 

If the device is omitted, DSK: is assumed. If the device is not a disk or DECtape, the filename 
and extension can be omitted. Note, when the filename is omitted, the extension must also be 
omitted. Should the device be a disk or DECtape, the filename must be specified, but the 
extension can be omitted, and then the extension ,BAS is used. 

The filenamel ,ext need not have line-numbers to be acceptable to COPY, The program 
currently in core is not disturbed by a COPY command, 

COPY RESIS.BAS > DTA3:24RES.BAS Make a copy of RESIS,BAS 

(which is on disk storage) on 
RE^^Y DECtape 3, and call it 24RES.BAS. 

9,4,3 Destroying Files 



UNSAVE devrfiiename.ext, devrfilename.ext, ... 



The UNSAVE command deletes the named files from the indicated devices. 

The arguments dev:, filename, and .ext can be omitted. If dev: is omitted, DSK: is assumed. 
If .ext is omitted, .BAS is assumed. If filename. ext is omitted, the current filename. ext is 
used. 
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In specifying more than one file to be UNSAVEd, the user must separate the filenames with 

UNSAVE RESIS.BAS 

FILES UNSAVED: 
RESIS 

READY 

9.5 COMPILING AND EXECUTING A BASIC PROGRAM IN CORE MEMORY 

If the user's core file is a BASIC program and it has been created, edited, and saved, it is ready to 
be compiled and executed. Note: A BASIC file does not have to be o BASIC program. The Edit and 
Control Commands discussed in this chapter are also used in creating files containing data and files 
containing text. The user does not want to compile and execute a data file or a text file. The RUN, 
CHAIN and -tC commands aid the user in processing his BASIC program. 



RUN n 
RUNNH n 



The RUN commands compile the entire program residing in user core. The RUN command 
generates a heading upon running the program; while RUNNH deletes the heading. After 
compilation, the program is executed starting at statement number n. If n is omitted, 
execution starts at the very beginning of the program. 



CHAIN 



The CHAIN statement can be included in a BASIC program to cause one program to run 
another program. For further information refer to Paragraph 6.6. 



fC+C 



Two +C's stop G running program and return the user to the BASIC command mode. All files 

that were opened by the program ore closed. ^ 

^ In monitors prior to 5.05 (and in 1040 monitors), two CTRL-C's (fCtC) may return the user to 
monitor mode, which is indicated when a period is typed. If this occurs, type REENTER to return to 
BASIC command mode. 
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9.6 ENTERING MONITOR MODE FROM BASIC 

While in BASIC, the user may desire to use additional I/O devices, obtain system information or 
request a special service. In order to accomplish these and other similar tasks, the user must put his 
terminal in monitor mode, 

9.6.1 What Is Monitor Mode? 

Once BASIC has printed "READY, FOR HELP TYPE HELP", the user knov/s that he has successfully 
entered BASIC and he can now type BASIC commands. In the DECsystem-10 environment, there can 
be many people using a large variety of system programs (of which BASIC is one), running their own 
programs, or performing other functions. The monitor is the supervisory program which schedules and 
controls those operations requested by each user, so that the system can better serve all users. 

To Issue a request to the monitor (a monitor command) after entering BASIC, the user must leave 
BASIC and enter monitor mode. He may then use the appropriate monitor command(s). 

When the user is finished and desires to reenter BASIC, he must type certain monitor command(s) to 
leave monitor mode and enter BASIC. 

Refer to the DECsystem-10 Operating System Commends in the DECsystem-IO User's Handbook 
(DEC-10-NGZB-D) or to the DECsystem-10 Software Notebooks . 

"Operating system commands" is another name for "monitor commands". 



Table 9-1 
Commands That Enter Monitor Mode From BASIC 



Command 



Result 



MONITOR 



SYSTEM 



Causes the user to leave BASIC and enter monitor mode. The process is 
complete when the monitor types a period, indicating that the user may 
type any monitor command. 

Caution — All Monitor Commands which run a program in performing their 
function, destroy the contents of the user's core. This means that all work 
done in BASIC that has not been permanently stored somewhere else (e.g., 
papertape, DEC tape, or disk) by using a BASIC command will be lost. 
Refer to Paragraph 9.4. 

Is almost Identical to the MONITOR commond in function. Unlike 
MONITOR, however, it does not allow the user to reenter BASIC by 
typing CONTINUE; only REENTER or START will succeed. 
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Table 9-2 
Useful Monifor Commands 



Command 



Funcfion 



.ASSIGN dev: 

.DAYTIME 
.DEASSIGN dev: 

.DIRECTORY 

.DISMOUNT dev; 

.R GRIPE 

.MOUNT dev: 

.PLEASE 

.REWIND dev: 

.SEND 

.SYSTAT 

.TIME 
.UNLOAD dev: 



Aiiocofes an I/O device to fhe user's job for the duration of the job or 
until a DEASSIGN command is given. No operator intervention is 
required (preserves user core). 

Types the date followed by the time of day (preserves user core). 

Releases a device the user has previously assigned to his job (preserves 
user core). 

Lists the names of all user files currently on disk storage (destroys user 
core) . 

Releases a device the user has previously requested through a MOUNT 
command. This commcmd requires operator intervention (destroys user 
core) . 

Records user comments for later review by the operations staff (destroys 
user core). 

Requests an I/O device be allocated to the user's job. This command 
requires operator intervention (destroys user core). 

Allows the user uninterrupted communications with the operator 
(destroys user core) . 

Rewinds a magnetic tape or a DECtape (destroys user core). 

Transmits a one-way message to a designated station (preserves user core), 

Runs a pro g r a m which prints status information about the system (destroys 
user core). 

Types out the total running time of the whole job (preserves user core). 

Rewinds and DEASSIGNs or DISMOUNTS a DECtape or magnetic tape 
(destroys user core). 



dev: can be DTAn:, DSKa:, LPTn:, etc. n=numeric, a=alphanumeric 



9.6.2 Returning to BASIC From Monitor Mode 

There are two different methods of returning to BASIC from monitor mode. The method the user 
employs depends upon whether he preserved or destroyed his core memory area. 
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9.6.2.1 User's Core Preserved - If Hie user has entered monil-or mode and has not issued a monitor 
command which destroys the contents of his core memory, he may use one of the following commands 
to reenter BASIC. 

Table 9-3 
Commands That Reenter BASIC When Core is Preserved 



Command 


Function 


.REENTER or 
. START 

.CONTINUE 


The user can exit from the monitor and reenter BASIC by typing either 
REENTER or START. If, while in the monitor, the user has issued a 
monitor command which destroys user core, neither the REENTER nor tlie 
START command causes the user to reenter BASIC. In this case he must 
type R BASIC. 

The CONTINUE command serves exactly the same purpose os REENTER or 
START as far as BASIC is concerned. However, it will only be successful 
in reentering BASIC after a BASIC MONITOR command; it will not work 
after a SYSTEM command has been used. 



READY 
SYSTEM 

• ASSIGN DTA3t 

DTA5 ASSIGNED 
.CONTINUE 

7CAII*T CONTINUE 
.START 

READY 



Enter Monitor Mode. 

Request DEC tape 3 be allocated to the job. 

Monitor assigns DTA3: 
Try to reenter to BASIC. 

Cannot type CONTINUE after a SYSTEM command, 
Alternative request to return to BASIC. 

O.K. BASIC responds. 



9,6.2.2 User's Core Destroyed - When the user desires to return to BASIC after he has destroyed 
his core storage area he does so by typing R BASIC. BASIC responds with "READY, FOR HELP TYPE 
HELP" when it is ready to accept commands. 
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READY ,, ^ 

MONITOR Enter Monifor Mode. 

.DIRECTORY Request listing of user files. 

HEADGS BAS 2 *055» 23- APR- 73 DSKC: 12 7,23 1 

BASE2 BAS 3 <I55» I5-JUL-73 

BTPLSR RNO 7 «055> I5-AUG-73 

TOTAL OF 12 BtaXS IN 3 FILES ON DSKC: [27,23 1 

.REENTER Try to get back to BASIC. 

?N0 START ADR No starting address exists since .DIRECTORY destroyed 

user ccfre . 
,R BASIC BASIC must be recalled. 

READY, FOR HELP TYPE HELP 



9.7 OBTAINING INFORMATION 

Three commands, CATALOG, HELP and LENGTH, retrieve important information from the system 
concerning available I/O devices, commands and program size. 



CATALOG device: 



After the CATALOG device: command is entered, the system lists on the user's terminal the 
names and extensions of the user's files residing on the named device. When device: is 
omitted, DSK: is assumed. 

device: can be 

BAS: Typing BAS: as the device outputs the library programs residing on ihe storage 

area BAS. 

SYS: Typing SYS: as the device lists the system programs stored on the system device 

SYS. 

DSKn: n (a number or letter) specifies a particular disk when more than one is available, 

If n is omitted, files on all disks are listed. 

DTAn: n (usually a number 0,1 ,2, . . .) identifies a particular DECtape when more than 

one is available. If the operating system command, ASSIGN, has been used to 
assign a DECtape or DECtapes, n may be omitted. The files on the DECtape 
with the lowest logical number will be listed. Should n be omitted and no 
DECtapes are assigned the user, logical unit is assumed. Errors may result 
from omitting n in this situation. Refer to ASSIGN in Paragraph 9.2 for more 
guidance in using DECtapes. 



9-16 Jarruary 1974 



READY 
CATALOG DSKC! 

HEADGS.8AS 

BASE2,BAS 

POPUL.BAS 

READY 



Type fhe names of all files on disk DSKC: 



Files on DSKC: are listed. 



READY 
CATALOG DTAj 



OPERI ACTION REQUESTED 



Type the names of files on the DECtape with 
the lowest logical unit number which is 
assigned to the user. 

In this case no DECtope was assigned to the 
user so DTAO: was assumed, but this DECtape 
was assigned to another user. 



READY 
MONITOR 
•ASSIGN DTAlt 

DTAl ASSIGNED 
REENTER 

READY 
CATALOG DTAj 

FILA,REL 
UPPER, CAS 
SOS, OUT 

READY 



Assign DTAl : to your job. 



Type the names of files on DTAl 



HELP 



After the user types the HELP command BASIC types a list of BASIC commands and a brief 
explanation of each on the user's terminal. 



READY 
HELP 



Request BASIC to output a brief description 
of its commands. 



THIS IS THE HELP FILE FOR DECSYSTEM-10 BASIC VERSION 1 7B 

THE FOLLOWING IS A SHORT (TWO PAGE) DESCRIPTION OF 
SOME OF THE MOST COMMONLY USED COMMANDS. FOR MORE 
INFORMATION SEE THE BASIC MANUAL IN THE DECSYSTEM-10 
SOFTWARE NOTEBOOKS. 



BYE 



LOGS THE USER'S JOB OFF THE SYSTEM. 



READY 
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LENGTH 



The LENGTH command instructs fhe system fo output the approximate length of the source 
program (stored in the user's core memory) expressed as the number of characters. 



READY 

LENGTH 

295 CHARACTERS 

READY 



ADDITIONAL INFORMATION 

Information about the system is available via the use of operating system commands. Refer 
to Parograph 9.6. 

9.8 SEHING THE INPUT MODE 

The tv/o input mode commands (TAPE and KEY) are useful only to users whose terminals are equipped 
with paper tape apparatus. One commonly used machine of this type is the LT33B (Figure C-1 ). 

Table 9-4 
Input Mode Commands 



By specifying: 


Input Mode 


KEY 
TAPE 


The system is set to accept input from the 
terminal keyboard. 

The user is aided in inputting information 
stored on paper tape. 



When neither command is input, KEY is assumed. Refer to Appendix C for more information. TAPE 
and KEY apply only to input mode, and do not affect output to the terminal . 

READY 
TAPE 

READY 
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9.9 LEAVING BASIC 

When the user hos finished all his work, he wanfs fo use BYE or GOODBYE, 



BYE 
GOODBYE 



BYE and GOODBYE exit the user from BASIC and log him off the DEC$ystem-10. Refer to 
Section 4.6. 
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CHAPTER 10 

DATA FILE CAPABILITY 



The data file capability allows a program to write information into and read information from data files 
that are on the disk. 

Nine Input/output channels are reserved for handling data files from a program. A data file must be 
assigned to a channel before it can be referenced In the program. At any given time, a program can 
have one and only one file on each channel and one and only one channel assigned to each file. Con- 
sequently, a maximum of nine files can be open simultaneously. However, because It Is possible for 
a program to change or establish file/channel assignments while it is running, there Is no limit to the 
number of data files that can be referenced in one program. 

10.1 TYPES OF DATA FILES 

There are two types of data files acceptable to BASIC: sequential access files and random access files. 

10.1.1 Sequential Access Files 

Sequential access files are those files that contain information that must be read or written sequentially, 
one Item after another, from the beginning of the file. A sequential access file Is either In write mode 
or read mode, but cannot be in both modes at the same time. When read mode Is established, reading 
starts at the beginning of the file. When write mode Is established, the file Is erased and writing starts 
at the beginning of the file. 

An important distinction to note about sequential access files Is that they can be listed in readable form 
on the user's Teletype or the line printer. Sequential access files consist of lines that contain data 
Items. A sequential access file is either a line-numbered file or a non line-numbered file, depending 
upon whether or not its lines begin with line numbers. Line-numbered files are like BASIC programs in 
that they can be manipulated by any of the commands described in Chapter 9 (e.g., OLD, LIST, 
DELETE) except the RUN(NH) and CHAIN commands. Nonllne-numbered files cannot be handled by 
any of the commands that expect a file to have line numbers; they can only be manipulated by the 
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COPY, QUEUE, and UNSAVE commands. They can be lisfed on the user's Teletype by means of the 
COPY command; for example: 

COPY TEST4 > TTY: 

Sequential access files do not necessarily have to be created by a program; they can be created at the 
editing level in BASIC. Line-numbered files can be created or modified just as a BASIC program is 
created or modified. Non line-numbered files can be created at the Teletype and then transferred to a 
storage device such as the disk by means of the COPY command. The following conventions must be 
observed when dealing with a sequential access file at the editing level: 

a. In line-numbered files, each line number must be followed immediately by at 
least one space, a tab, or the letter D. 

b. A line can contain any number of data items separated from one another by at 
least one space, a comma, or a tab. However, the line must not be longer than 
142 characters (counting the line number and its following delimiter, but not 
the carriage return and line feed that terminate the line). It is not necessary 
to have a space, comma, or tab after the last data item on the line. Note that 
blanks and tabs are not ignored in a data file as they are in a program. 

c. A data item is any numeric constant (refer to Section 1 .3.3) or string constant 
(refer to Chapter 8). Numeric constants must not contain blanks or tabs. If a 
string is to contain a blank, comma, or tab, the user must enclose the string 

in quotes; otherwise it will be read as more than one data item by the statements 
that read data. 

Section 10.4 contains an example of the use of a line-numbered data file created at the editing level . 
Section 10.5. 1 contains an example of a program that creates both a line-numbered data file and a 
non line-numbered data file and shows what these files look like when they are copied to the Teletype. 

Because it requires execution time for a program to read and write line numbers in a data file, a 
non line -numbered data file should be used in preference to a line-numbered data file unless the user 
specifically wishes to edit the data file with commands such as DELETE. 

Another distinction between sequential access files is whether the file is a pure data file or a text file. 
A pure data file is used primarily for the storage of data. A text file contains data that is probably 
destined for output to the line printer, because it is a report, a financial statement, or the like. The 
user must follow slightly different procedures in his program depending on the type of file he wishes to 
handle. For example, a string that contains a blank must be enclosed in quotes when it is written into 
a pure data file, otherwise it will be seen as more than one string when data is read from the file. 
However, such a string should not be enclosed in quotes when it is written into a text file because text 
files are not normally read back into a program, and the superfluous quotes would spoil the appearance 
of the file when it is printed. The procedures to follow when handling each type of file are explained 
in Sections 10.5.1 and 10.7. 
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10,1.2 Random Access Files 

Random access files are data files tbot are not necessarily read or written sequentially. The user can 
read items from or write items into a random access file without having the items follow one after the 
other. The items in a random access file are not recorded in a form suitable for listing, and therefore 
cannot be output to the user's Teletype or the line printer. Random access files cannot be handled by 
any of the BASIC commands other than COPY and UNSAVE. A random access file can be copied to 
the disk, DECtape, or magnetic tape, but not to any other device (Teletype, paper-tape punch, card 
punch, or line printer). Copying a random access file to a device other than disk, DECtape, or mag- 
netic tope will cause errors to be introduced into the file. If the system program PIP is used to transfer 
a random access file to disk, DECtape, or magnetic tape, the file must be transferred in binory mode. 
Refer to the PIP manual for information on how to use PIP. 

Random access files, unlike sequential access files, do not distinguish between read mode and write 
mode. The user can read or write any item in a random access file at any time by first setting a 
pointer to that item, A random access file contains either string data or numeric data, but not both. 
Each data item in a random access file takes up the same amount of storage space, called a record, 
on the disk. BASIC must know the record size for the random access file in order to correctly move 
the pointer for that file from one data item to another. The record size for a random access numeric 
file is set by BASIC because the storage space required for a number in such a file is always the same. 
The storage space required for a string# however, is dependent upon the number of characters in the 
string. Thus, for a rondom access string file the user must specify the number of characters in the 
longest string in the file so that BASIC can set the record size accordingly. This specification takes 
place when the file i$ assigned to a channel . Refer to the description of the FILES and FILE statements 
in Section 10.2. When creating a new random access string file, if the user specifies too few charac- 
ters an error message is issued when a string too lor>g to fit into a record is written. If too many 
characters are specified for a record, the strings will always fit, but space will be wasted on the disk. 
When he is dealing with an existing file, the user does not hove to specify a record size. If he does 
specify a record size for an existing file, the record size must match that with which the file was 
written . 

BASIC processes random access files more quickly than it processes sequential access files. Consequent- 
ly, if the user wishes to read or write large amounts of data in sequential order, but does not require 
that the data be in listable form, he should consider using a random access file to take advantage of its 
speed. A random access file can easily be read or written in sequential order. 
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10.2 THE FILE AND FILES STATEMENTS 

The FILE and FILES statements perform identical functions. They both assign a file to a channel and 
establish the type of the file (sequential, random access string, or random access numeric). The 
difference between FILE and FILES is that FILE is an executable statement while FILES is not. Before 
execution of the program begins, BASIC collects all of the FILES statements in the program, makes the 
channel assignments, and sets the file types as they were declared in the FILES statements. The FILES 
statements are not used again during that execution of the program. GO TO and GOSUB statements 
to FILES statements work just as they do to REM statements; i .e. , execution will transfer to the first 
executable statement following the FILES statement. The FILE statement, on the other hand, assigns 
channels and establishes file types during program execution, thereby allowing the user to change 
file/channel assignments during the running of his program. 

The FILE and FILES statements accept filename arguments of the form: 

filenm.ext type 

where ftlenm ond .ext are the filename and extension of the file in the form described in Chapter 4. 
The filename must be specified, but the extension can be omitted. If the extension is omitted, .BAS 
is assumed. Type can be a percent sign (%); a dollar sign ($) optionally followed by one, two, or 
three digits; or omitted. If type is omitted, the file is assumed to be a sequential access file. If a 
percent sign is specified, the file is assumed to be a random access numeric file. A dollar sign option- 
ally followed by a one- to three-digit number indicates a random access string file. The number follow- 
ing the dollar sign specifies the number of characters in the longest string that the file will contain. 
A maximum of 132 characters and a minimum of one character can be specified. If the number is 
omitted from the dollar sign type and the file does not presently exist, a default length of 34 characters 
is established. If the number is omitted from the dollar sign type and the file does exist, the l<»ngth 
with which the file was previously written is established. 

The FILES statement has the form: 

FILES filenm.ext type, filenm.ext type, . . .filenm.ext type 

where the arguments can be separated by a comma or a semicolon. Channels are assigned consecutively 
to the arguments of all the FILES statements in the program. If an argument is omitted, the channel for 
the missing argument is skipped. For example, if a program contains only these FILES statements: 

10 FILES ,, Al,B 
20 FILES C*D, 
30 FILES E 

file A will be assigned to channel 3, file B to channel 5, file C to channel 6, file D to channel 7, and 
file E to channel 9. 
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The FILE statement has the form: 

FILE argl, arg2, . . . argn 

where the arguments can be separated by a comma or a semicolon . At least one argument must be 
present in a FILE statement. Each argument that assigns a sequential access file to a channel is of the 
form: 

'N, string formula 
or *N: string formula 

Each argument that assigns a random access file to a channel is of the form: 

:N, string formula 
or :N: string formula 

N is a numeric formula having a value from 1 to 9 that specifies the channel; the value is truncated to 

an integer if necessary. The string formula is of the form: 
filenm. ext type 

Note that the channel specifier for a random access file is preceded by a colon (:) while the channel 
specifier for a sequential access file is preceded by a number sign ('). This is true of all data file 
statements ar>d functions that include channel specifiers. Some data file statements and functions do 
not require the number sign or colon to be specified explicitly, but default to one or the other. See 
the description of the various statements arKi functions in the followir>g sections for details. An attempt 
to reference a file with a channel specifier of the wrong type causes an error message. 

The FILE statement does not permit the enclosing quotes to be omitted when its string formula argument 
is a constant. This is because a statement of the form FILE :1 , B$ would cause an ambiguity. The B$ 
could be token as a variable (B$) or as a random access string file named B. 

Before the FILE statement assigns a file to a channel, it checks to see if a file already exists on that 
channel; if so, the old file is closed ardl removed from the channel before the new file is assigned. 
The type of the old file is immaterial; it is permissible, for example, to close on old sequential access 
file on a channel and then open a random access file on that channel . Any file open on a channel at 
the end of program execution or whenever BASIC is reentered is automatically closed and removed from 
that channel . 

Examples of FILES and FILE statements are: 

10 FILE #1* "ONEDAT": #4,"0UTDAT" 

20 FILE #9: "CHKDAT .4"* tA, BS+"%" 

30 FILES FOUR. OUTS* MAIN.8;il PR0G$16 

40 FTLF #R*2, "BASFIL" 
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10.3 THE SCRATCH AND RESTORE STATEMENTS 
The SCRATCH statement has the form: 

SCRATCH orgl , arg2, . . . argn 

The RESTORE statement has the form: 

RESTORE org], arg2, ...argn 

where the arguments can be seporated by a comma or a semicolon. An argument is of the form: 

For sequential access files: 
'N 

For random access files: 

:N 

I where N is a numeric formula hoving a value from 1 through 9 that specifies the channel. If necessary, 
the value is truncated to on integer. If neither a number sign nor a colon is present in front of the N, 
the number sign is assumed. At least one argument must be present in a SCRATCH or RESTORE statement. 

Scrafchorig a sequential access file erases it and sets it in write mode. Writing will start at the begin- 
ning of the file. Referencing a sequential access file with a statement that does input (READ, INPUT, 
or IF END, described in Sections 10.4 and 10.10) while it is in write mode results in a fatal error. 

Scratching a random access file simply erases it and sets the pointer for the file to the first record in 
the file. 

Restoring a sequential access file sets the file in read mode. Reading will start at the beginning of the 
file. Referencing a sequential access file with a statement that does output (WRITE or PRINT, described 
in Section 10.5) while it is in read mode results in a fatal error. When a sequential access file is 
opened by a FILES or FILE statement and the file exists at that time, it is automatically set in read 
mode; it is not necessary to restore it. It is only necessary to restore a sequential access file if it has 
been set in write mode and the user wishes to set it to read mode in the same program. 

Restoring a random access file simply sets the pointer for the file to the first record in the file. When 
a random access file is opened on a channel by a FILE or FILES statement, its pointer is automatically 
set to point to the first record of the file. 

Examples of the SCRATCH and RESTORE statements are: 

I 10 SCRATCH #4, :2, *T-1, ) 

20 SCRATCH 01 , 2, 3* A 

80 RESTORE i2 S9# 1 

I 90 KFSTPnF SCJf^ (X), ^* 3, 7 
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10.4 THE READ AND INPUT STATEMENTS 

The READ and INPUT statements read data items from files. The READ statement has the following 



forms: 



For sequential access files: 

READ '''N, variable, variable, ... variable 

For random access files: 

READ :N, variable, variable, ...variable 

The INPUT statement has the following forms: 

For sequential access files: 

INPUT *N, variable, variable, ... variable 

For random access files: 

INPUT :N, variable, variable, ...variable 

N is a numeric formula having a value from 1 through 9 that specifies the channel. The value Is trun- 
cated to an integer if necessary. At least one variable must be present In each READ or INPUT state- 
ment. The delimiter following N can be a comma or a colon. The variables are separated from one 
another by a comma or semicolon. 

The variables in a READ or INPUT statement for a sequential access file can be string or numeric or a 
mixture of both. The variables in a READ or INPUT statement for a random access file can be string 
or numeric, but not both, because a given random access file cannot contain both string and numeric 
data Items. 

READ and INPUT statements for sequential access files differ from one another In the following way. 
The READ statement expects each line of data in the file to begin with a line number, which it then 
skips. That Is, the line number is not treated as data. If a line number is not present, an error mes- 
sage is issued. The INPUT statement, on the other hand, does not expect a line number on each line 
of data. If one is present, it is read as data. It is illegal to use both INPUT and READ statements to 
read from the same sequential access file unless the file has been restored between the two types of 
statements. An attempt to mix READ and INPUT statements for sequential access files results in a fatal 
error message. 

Examples of the READ and INPUT statements for sequential access files are: 

10 READ #2, AC I ), L* B$ 

30 READ #6> Z$ 

105 INPUT #4, BCK) 

120 INPUT #7, W$, M 

READ and INPUT statements for random access files are completely equivalent. They both begin read- 
ing at the item that the pointer for the file specifies, and continue reading sequentially until all of 
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fhe variables have been filled. If is legal to use both READ and INPUT statements to input from the 
same random access file. 

If the user attempts to read beyond the last item in either a sequential access or a random access file, 
a fatal error message Is Issued. In a random access file, it is possible to have Items that have not been 
written but that are within the file (because some subsequent item has been written). If such an item 
is in a numeric file and Is read, a value of zero is input. If such an item is in a string file, a string 
containing no characters Is returned. 

Examples of READ and INPUT statements for random access files are: 

20 READ :2* A* B(I)* C; F2 

50 READ iA, FS* GS(8) 

210 INPUT :l* Q(2) 

240 INPUT :5: Nl i N2i N3 

The following example shows a sequential access file being created at the editing level and then read 
by a program . 



NEW 

NEW FILE NAME--TEST2 

READY 

10 "LANTHANIDE SERIES" 

20 LA*CE#PR*ND*PM*SM*EU*GD*TB*DY*HO*ER 

25 TM*YB,LU#57,71 

SAVE 

READY 

OLD 

OLD FILE NAME--TABLE 

READY 

LISNH 

1 DIM A$(15) 

5 FILES TEST2 

12 READ #1 «BS 

15 FOR X=l TO 15 

20 READ #1 ,A$(X) 

25 NEXT X 

30 READ #1 *N1 *N2 

35 PRINT "THIS IS THE " SBl 

40 PRINT 

42 PRINT "ELEMENT"* "ATOMIC NUMBER" 

44 PRINT 

45 FOR Y=l TO 15 

50 PRINT A5CY)#N1 -1 + Y 
55 NEXT Y - 
100 END 



The user types in and then 
SAVEs the data file 
"TEST2". 



The old file "TABLE" is re- 
trieved and listed. 



(continued on next page) 
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I 



READY 
RUN 

TABLE 13:31 15-JUL-70 



THIS IS THE LANTHANIDE SEHIES 
ELEMENT HlUk'iiO NU/ioEh 



LA 


57 


CE 


58 


PR 


59 


ND 


60 


PM 


61 


SM 


62 


EU 


63 


GD 


64 


TB 


65 


DY 


66 


HO 


67 


ER 


68 


TM 


69 


YB 


70 


LU 


71 


TIME: 


0.18 SECS. 


READY 





An example of reading from a random access file is given in Section 10.6. 

10.5 THE WRITE AND PiUNT STATEMENTS 

The WRITE arKl PRINT statements write data items into files. 

10.5.1 WRITE and PRINT Statements for Sequential Access Files 

The WRITE and PRINT statements for sequential access files have the following forms: 

WRITE 'N, list of formulas and delimiters 
PRINT 'N, list of formulas and delimiters 

where N Is the channel specifier. The delimiter following N can be a comma or a colon; it can be 
omitted if the list is omitted. The formulas In the list can be string or numeric or both. The TAB 
function can be used. The delimiters can be commas, semicolons, or <PA> delimiters; they have the 
same meanings that they have In the PRINT statement for the Teletype (refer to Chapter 6). 

WRITE and PRINT statements for sequential access files differ from one another in the following way. 
The WRITE statement begins each line of output with a line number followed by a tab. The first line 
in the file Is numbered 1000 and subsequent line numbers are incremented by 10. The PRINT statement, 
on the other hand, does not begin lines with line numbers. It is Illegal to use both WRITE and PRINT 
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statements to write to the same sequential access file unless the file has been erased (by means of the 
SCRATCH command) between the two types of statement. An attempt to mix WRITE and PRINT state- 
ments results in a fatal error message. 

Files created by WRITE statements are normally read by READ statements. Files created by PRINT 
statements are normally read by INPUT statements. 

Examples of the WRITE and PRINT statements for sequential access files are: 

50 WRITE 02> SOR(A)+EXP(G); Q(I) 

75 PRINT #7, <PA> B ( I) # *C < I) * *D ( I ) 

110 WRITE #3 

The normal mode of output for WRITE and PRINT statements for sequential access data files is noquote 
mode. In noquote mode, strings are not enclosed in quotes even if they contain characters that the 
READ and INPUT statements see as delimiters. Also, strings are concatenated if they are output with 
a semicolon separating them. Noquote mode is the mode used when writing a text file (refer to 
Section 10. 1 . 1 for a description of text files and pure data files) . Noquote is the default mode; a 
sequential access file is automatically set in noquote mode when it is assigned to a channel by a FILE 
or FILES stotement. However, noquote mode is not suitable when writing pure data files because the 
integrity of the data is not maintained. In order to write a pure data file, the file must be set in quote 
mode. This can be done by the QUOTE or QUOTE ALL statement, both of which are described in 
Section 10.7. When a file is in quote mode, BASIC accepts WRITE and PRINT statements that are in 
the usual form, but it makes whatever small changes that are necessary to the formatting in order to 
preserve the integrity of the data items. Refer to Section 10.7 for details about the changes that are 
made. 

An example of the actions performed by the WRITE and PRINT statements follows. 



10 


FILES A, B 




20 


SCRATCH #1 ,2 




30 


WRITE #1 # \t 2., Tf^Bi70-), 


3 


40 


PRINT 02, "A"; A 




50 


END 




RUNNH 






TIME: 


0.02 SECS. 




READY 






COPY A 


I > TTY: 




01000 


1 2 




01010 


3 





(continued on next page) 
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READY 

COPY B > TTY: 

A 4 

READY 



10.5.2 WRITE and PRINT Sfafements for Random Access Files 

The WRITE and PRINT statements for random access files have the forms: 

WRITE :N, formula, formula, ... formula 
PRINT :N, formula, formula, ... formula 

where N is the channel specifier. The delimiter following the channel specifier can be a comma or a 
colon. At least one formula must be present in each statement. The formulas are separated from one 
another by a comma or semicolon. In a given statement, all of the formulas must be string or all of 
them must be numeric because a random access file is either string or numeric but not both. 

WRITE and PRINT statements for random access files are exactly equivalent; they both begin writing 
into the record that the pointer for the file specifies, and continue writing sequentially until all of 
their arguments have been written . It is legal to use both WRITE and PRINT statements to write to the 
same random access file. 

Examples of WRITE and PRINT statements for random access files are: 

25 WRITE :2# N# L; M 

35 PRINT '.AS AS# B$+Q$<I) 

An example of writing to a random access file is shown below in Section 10.6. 

10.6 THE SET STATEMENT AND THE LOC AND LOF FUNCTIONS 

The SET statement has the form: 

SET argi , arg2, . . . argn 

where the arguments can be separated by commas or semicolons. Each argument has the form: 

:N, numeric formula 
or :N: numeric formula 

where N is the channel specifier. The colon preceding the channel specifier can be omitted because 
SET is only used for random access files; the colon is therefore redundant. Each SET statement must 
have at least one argument. When a SET statement is executed, the pointer for the file on the speci- 
fied channel is moved so that it points to the item in the file that is specified by the numeric formula, 
which has been truncated to an integer. If the numeric formula after truncation is less than or equal to 

Version 17 BASIC 10-11 August 1971 



zero, an error mescoge is issued. The items in the file are numbered sequentially; the first item in the 
file is 1 , the second 2, and so forth. The next statement in the program that reads from or writes to 
the random access file will read or write the item to which the pointer was set, provided that the 
pointer kis not been moved again by a subsequent SET statement or another statement. 

Examples of SET statements are: 

55 SET x3* 100, iA, 150 

S5 SET :l*i; :4*2l5 

An example of a program using the SET statement follows. 



10 


FILES TEST4X 


20 


FOR T«l TO 10 


30 


WRITE «1# T 


40 


NEXT T 


50 


FOR T»l TO 10 BY 2 


60 


SET IW T 


70 


READ 11 > X 


80 


PRINT X 


90 


NEXT T 


100 


END 


RUNNH 




1 
3 




5 




7 




9 




TIME: 


0.01 SECS. 



Two functions, LOC and LOF, return information about random access files. LOC returns the number 
of the record to which the pointer for the file currently points, and LOF returns the number of the 
last record in the file. 

The forms of LOC are: 

LOC(N) 
LOC(:N) 

The forms of LOF are: 

LOF(N) 
LOF(:N) 

where N is the channel specifier. An error message Is issued if a random access file is not assigned to 
the specified channel when the function is executed. 
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An example of these funcl-ions Is: 



10 IF L0C(2)<=L0F(2 ) THEN 30 

20 PRINT "FINISHED FILE ON CHANNEL 2* 



10.7 THE QUOTE, QUOTE ALL, NOQUOTE, AND NOQUOTE ALL STATEMENTS 

As was discussed in Section 10.5.1, the default mode for output to sequential access data files or to 
the TELETYPE is noquote mode. The QUOTE and QUOTE ALL statements allow the user to change the 
mode of the Teletype and sequential access files to quote mode. Quote mode changes the way that 
the data items are written into the files or onto the Teletype. In quote mode, strings pre enclosed in 
double quotes by BASIC if they contain blanks, tabs, or commas; a leading blank is output immediately 
before strings and negative numbers; and a double quote character cannot be output by the user. If such 
an attempt is made to output a double quote character, an error message is issued. Also a data item 

cannot be longer than the maximum amount of space available on a new line. If an attempt is made to 
output a data item longer than this, a fatal error message results. In noquote mode, the data item 
would be split across two or more lines. These modifications to the normal formatting are sufficient to 
insure that the integrity of the data is maintained, as was discussed in Section 10.5.1 . 

The opposite of quote mode is noquote mode, which can be set by the NOQUOTE and NOQUOTE ALL 
statements. Noquote mode is the default mode for the Teletype and sequential access files. Whenever 
a sequential access file is assigned to a channel by a FILES or a FILE statement, it is automatically set 
in noquote mode. NOQUOTE and NOQUOTE ALL statements are only necessary if the user wishes to 
change a file from quote to noquote mode. 

When creating a pure data file, in addition to setting the file in quote mode, it is good practice to 
separate the formulas In the WRITE or PRINT statements with semicolons to pack the data Items close 
together. Although separating the formulas with commas is permissible, it will waste space on the 
disk. 

The form of the QUOTE statement is: 

QUOTE argi , arg2, . . . argn 

where each argument has the form: 

#N 
or N 

where N is the channel specifier. If an argument is omitted, the Teletype is specified; for example, 

30 QUOTE s \ > A 

refers to the Teletype and the files on channels 1 and 4. 
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Since QUOTE is assumed to have at least one argument, the statement 

50 QUOTE 

specifies the Teletype. 

The form of the QUOTE ALL statement is: 
QUOTE ALL 

QUOTE ALL refers to channels 1 through 9 , but not to the Teletype. 

When a channel is referenced in a QUOTE or QUOTE ALL statement and that channel has a sequential 
access file currently assigned to it, output to the file is done in quote mode. If a sequential access 
file is not presently assigned to the channel, nothing is done and no error message is returned. 

The form of the NOQUOTE statement is the same as that of the QUOTE statement, except that the 
word NOQUOTE is substituted for the word QUOTE. Examples of NOQUOTE statements are: 

10 NOQUOTE #1,*2 

20 NOQUOTE 

The first example specifies the files on channels 7 and 2 and the Teletype. The second example speci- 
fies the Teletype. 

The form of the NOQUOTE ALL statement is: 
NOQUOTE ALL 

When a channel is referenced by a NOQUOTE or NOQUOTE ALL statement and that channel has a 
sequential access file currently assigned to it, output to the file will be written in noquote mode. If 
a sequential access file is not presently assigned to the channel, nothing is done and no error message 
is returned . 

The use of the QUOTE ALL or NOQUOTE ALL statement is a convenient way to set all sequential 
access files currently assigned to channels into the appropriate mode, since the statements will not 
return error messages about or affect unassigned channels or the Teletype, and will not damage any of 
the random access files currently assigned to channels. 

Quote or noquote mode can be set even if the file is in read mode because these modes have no effect 
on input. They will affect the output if the file is subsequently put into write mode. 

If the mode is changed from quote to noquote or vice versa, the change takes effect immediately. 
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10.8 THE MARGIN AND MARGIN ALL STATEMENTS 

Normally, the right output margin for the Teletype and sequential access files is 72 characters. 
I Whenever a sequential access file is assigned to a channel by a FILES or a FILE statement, the file's 
output margin is automatically set to 72 characters. At the beginning of and also at the end of program 

(execution, the Teletype output margin is set to 72 characters. There is no margin in a random access 
file. 

The MARGIN and MARGIN ALL statements allow the user to set the right output margin for the Tele- 
type or any sequential access file from 1 to 132 characters. The form of the MARGIN statement is: 

MARGIN argl, arg2, ... argn 

where each argument has the form: 

*N, numeric formula 

The arguments can be separated by commas or semicolons. N is the channel specifier. The numeric 
formula specifies the margin size; it is truncated to an integer. Either a comma or a colon can be used 
to separate the channel number from the margin size. 

If only the margin size is present in the argument, that argument refers to the Teletype. For example: 

I 35 N-'ARGIN 75> *8:132 

sets a margin of 75 characters for the Teletype and a margin of 132 characters for the file on channel 
8. 

The form of the MARGIN ALL statement is: 

MARGIN ALL numeric formula 

This statement sets the sequential access files on channels 1 through 9 to the margin specified by the 
numeric formula, the value of which is truncated to an integer before the margin is set. The Teletype 
is not affected by the MARGIN ALL statement. Examples of the MARGIN ALL statement are: 

60 MARGIN ALL 132 

65 (MARGIN ALL N*ABS(KCI)) 

I Neither the MARGIN nor MARGIN ALL statement has any effect on random access files or on chan- 
nels that have no files assigned to them. Consequently, the MARGIN ALL statement is a convenient 
way to set a margin for all sequential access files currently assigned to channels. 



The monitor command SET TTY WIDTH must be used in addition to the BASIC MARGIN statement if 
the user wishes to set the output margin for the Teletype to any size greater than 72 characters. Refer 
to Section 6.7 for details. 
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The margins set by the MARGIN and MARGIN ALL statements apply only to output. The margin for 
Input lines for both the Teletype and sequential access files Is not affected by these statements; it is 
I always 142 characters. An attempt to Input a line longer than 142 characters results in an error 
message . 

A margin set by a MARGIN or MARGIN ALL statement takes effect as soon as a new line of output is 
begun for the Teletype or the sequential access file. 

Although the right margin can be set to any number between 1 and 132 characters, the margin for lines 
output by WRITE statements must be at least 7 characters to allow for the line number and its following 
tab. If the margin is less than 7 characters for a line-numbered file, an error message is issued by the 
first WRITE statement referencing the file. 

10.9 THE PAGE, PAGE ALL, NOPAGE, AND NOPAGE ALL STATEMENTS 

Normally, output to the Teletype or to sequential access files is not divided into pages; that Is, It Is 
I in nopage mode. Whenever a sequential access file is assigned to a channel by a FILES or a FILE 
statement, it Is automatically set in nopage mode. At the beginning and also at the end of program 
execution, the Teletype is set to nopage mode. The PAGE and PAGE ALL statements allow the user 
to set a page size of any positive number of lines for the Teletype and sequential access files. The 
NOPAGE and NOPAGE ALL statements allow the user to set the Teletype and sequential access files 
I to nopage mode. Nopage and page modes are meaningless for random access files. 

The form of the PAGE statement is: 

PAGE argi , arg2, . . . argn 
where each argument has the form: 

''^N, numeric formula 

The arguments can be separated by commas or semicolons. N is the channel specifier. The numeric 
formula is truncated to an integer and used to specify the page size. Either a comma or a colon can 
be used to separate the channel number from the page size. 

If only a page size is present In an argument, that argument refers to the Teletype; for example: 

4P1 PAGE #1* 66; 50* #7:62 

sets the files on channels 1 and 7 to page sizes of 66 and 62 lines respectively, and the Teletype to a 
page size of 50 lines. 
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The form of the PAGE ALL sfatement is: 

PAGE ALL numeric formula 

This statement sets the sequential access files on channels 1 through 9 to a page size specified by the 
numeric formula; however, the Teletype is not affected. The value of the numeric formula is truncated 
to an integer before the page size is set. An example of the PAGE ALL statement is: 

9P) PAGE ALL Q<2)*B 

I Neither the PAGE nor PAGE ALL statement has any effect on random access files or on channels that 
have no files assigned to them. Consequently, the PAGE ALL statement is a convenient way to set a 
page size for all of the sequential access files currently assigned to channels. If a PAGE or PAGE ALL 
statement specifies a page size of zero or less than zero, an error message is issued. 

When a PAGE or PAGE ALL statement is executed for a sequential access file that is in write mode or 
for the Teletype, BASIC ends the current line of output (if necessary), outputs a leading form feed, 
and starts counting lines beginning with the next line output. Subsequently, whenever a new page 
becomes necessary, a form feed is output and the line count is set back to zero. Execution of a <PA> 
delimiter sets the line count to zero. PAGE and PAGE ALL statements can be executed for sequential 
access files in read mode; in this case, the leading form feed is not output. A page size remains in 
effect until another PAGE or PAGE ALL statement changes it, until a NOPAGE or NOPAGE ALL 
statement is executed for that file or the Teletype, or until the end of program execution. Setting the 
page size for the Teletype is further described in Chapter 6. 

The form of the NOPAGE statement is: 

NOPAGE argl, arg2, ... argn 
where each argument has the form: 

#N 
or N 

where N is the channel specifier. If an argument Is omitted, the Teletype is specified; for example: 

10 NOPAGE #3** 2 

refers to the Teletype and the files on channels 2 and 3. 

Since the NOPAGE statement is assumed to have at least one argument, the statement 

70 NOPAGE 

refers to the Teletype. 
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The form of the NO PAGE ALL statement is: 
NOPAGE ALL 

The NOPAGE ALL statement sets all of the sequential access files on channels 1 through 9 in nopage 
mode, but does not affect the Teletype. 

Like the PAGE and PAGE ALL statements, NOPAGE and NOPAGE ALL statements have no effect on 
channels that have random access files or no files assigned to them. Consequently, the NOPAGE ALL 
statement is a convenient way to set all of the sequential access files currently assigned to channels 
into nopage mode. 

10.10 THE IF END STATEMENT 

The IF END statement allows the user to determine whether or not there is any dota left in a file 
between the current position in the file and the end of the file. 

The statement forms are: 

For sequential access files: 

IF END 'N i^i^i^^Jline number 

For random access files: 

IF END :N, I^^^^Mine number 

where N is the channel specifier. The line number must refer to a line in the program orKl must follow 
the rules for line numbers discussed in Chapter 1 . Either THEN or GO TO must be used in the state- 
I ment. The comma preceding THEN or GO TO is optional. 

The IF END statement will execute for a sequential access file only If the file Is in read mode; an error 
message will be issued if the file is in write mode or If it does not exist. The IF END statement will 
always execute for a random access file that exists because such a file does not distinguish between 
read and write modes. For the purposes of the IF END statement, the end of a random access file is 
considered to be just beyond the final record in the file. The LOC and LOF functions described in 
Section 10.6 can also be used to determine whether or not there Is any data between the current pointer 
position In a random access file and the end of the file. 

If an IF END statement Is executed for a sequential access file that Is In read mode but that has not yet 
been referenced by a READ or INPUT statement, the IF END statement will assume that the file does 
not have line numbers. Thus, If an IF END statement Is executed for a line-numbered file that has not 
been referenced by a READ statement, the IF END statement will treat line numbers as data Items and 
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will erroneously report fhot fhere is data in the file if only line numbers remain in the file. As soon 
as a READ or INPUT statement Is executed for a file, the IF END statement correctly interprets the 
kind of file (line-numbered or non line-numbered) and can distinguish between line numbers and data. 

The following example shows how the IF END stotement works for sequential access files. 

10 FILES TEST 

20 SCRATCH # 1 

30 FOR X=l TO 5 

40 READ A 

50 WRITE #1 * A 

60 NEXT X 

70 RESTORE #1 

80 FOR 1=1 TO Ife) 

90 PRINT "T = ••; I, 

100 IF END #1 THEN 170 

110 READ #1 « BCD 

120 PRINT B< I) 

130 NEXT I 

M0 PRINT "FAILED" 

150 STOP 

160 DATA -I #-2#-3*-4*-5*-6#-7*-8#-9#-10 

170 END 

RUNNH 



I s 


1 






-1 


I = 


2 






-? 


I =: 


3 






-3 


I = 


4 






-4 


I = 


5 






-5 


I = 


S 








TIME 




0. 


10 


SECS. 



If the final record written into a random access file is record number 1804, for example, the IF END 
stote m ent will cause a transfer when it is executed only if the pointer for that file has a value of 1805 
or greoter at that time . 
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January 1974 



CHAPTER 11 
FORMATTED OUTPUT 



The user who wishes to control the format of his output more than is permitted by the PRINT, PRINT', 
and write' statements described in Chapters 6 and 10 can use the statements described in this chapter. 
These statements are PRINT USING, PRINT USING*, and WRITE USING*. They ail use a special 
formatting string, called an image, to format their output. 

n . 1 THE USING STATEMENTS 

The PRINT USING statement allows formattir^ of string and numeric output to the Teletype. The forms 
of the PRINT USING statement are: 

PRINT USING line number, list 
PRINT USING string formula, list 

The PRINT USING* and WRITE USING* statements allow formatting of output to data files. 
PRINT USING* formats output to data files without line numben; WRITE USING* formats output to 
line'-numbered data files. The forms of the PRINT USING* statement are: 

PRINT USING *N, line number, list 
PRINT USING *N, string formula, list 
PRINT *N, USING line number, list 
PRINT *N, USING string formula, list 

The forms of the WRITE USING* statement are: 

WRITE USING *N, line number, list 
WRITE USING *N, string formula, list 
WRITE *N, USING line number, list 
WRITE *N, USING string formula, list 

I N is a numeric formula having a value from 1 through 9 that specifies the channel that the file is on. 
The comma following N can be omitted in the forms in which N precedes the word USING. The list 
has the form: 

formula delimiter formula delimiter. . .formula 
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The formulas are either string or numeric and the delimiters are commas or semicolons. At least one 
formula must be present in the list. 

The USING statements output each formula in their lists under the control of an image that specifies 
the fomKit. The image is a string of characters that describe the form of the output (integer, decimal, 
string, etc.) and the placement of the output on the output line. If the USING statement contains a 
line number as its argument, the image is on the line specified by that line number. Such a line is 
called an image statement and has the form: 

line number : string of chorocters 

The string of charocterj in an imoge stotement is not encioted in quotes. For exompie: 

10 PRINT USING 20# A 

20 : THE ANSWER IS #♦#* 

Image statements cannot be terminated by the apostrophe remarks indicator because an apostrophe can 
be used as a format control character in an image. 

If the USING statement contains a string formula as its argument, the image is the value of the string 
formula. If the string formula is a string constant. It must be enclosed in quotes. An example of the 
image In the USING statement is: 

10 PRINT USING "THE ANSWER IS ####•'* A 

When a USING statement Is executed, BASIC begins a new line of output, and the first argument in 
the USING statement is output Into the first specification in the Image. If there are more arguments 
in the USING statement than specifications in the image, a new output line is begun and the specifi- 
cations tn tne image are used again. USING statements always write complete lines. The current 
margin set for the Teletype or the data file referenced does not affect USING statements; however, 
an attempt to creote a line longer than 132 characters results In an error message. Quote and noquote 
modes do not affect USING statements; USING statements ignore both modes. 

The WRITE USING* statement performs the same functions as the PRINT USING* statement except that 
WRITE USING' places a line number and a tab at the beginning of each line. Neither the line num- 
ber nor the tab are specified in the Image. WRITE USING* statements must be used for files that have 
line numbers, and PRINT USING* statements must be used for files that do not have line numbers. If 
an attempt is made to use a WRITE* or WRITE USING* statement for a file that was previously written 
by PRINT* or PRINT USING* statements, an error message will be issued unless an Intervening 
SCRATCH* statement erased the file. Similarly, an attempt to use PRINT* or PRINT USING* state- 
ments for a file that was previously referenced by WRITE* or WRITE USING* statements results In an 
error message unless an Intervening SCRATCH* statement erased the file. 
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An example of PRINT USING* and WRITE USING* is shown below 

10 PILES TESTl* TEST2 

2f» SCRATCH #1* #2 

30 AS = "THE INDEX IS *#" 

40 FOR T = 1 TO 3 

50 PRINT USING #1* A$# T 

60 WRITE USING #2* A$# T 

70 NEXT T 

80 END 

RUNNH 

TIME: 0.01 SECS. 

READY 

COPY TESTl > TTY8 
THE INDEX IS 1 
THE INDEX IS 2 
THE INDEX IS 3 

READY 

COPY TEST2 > TTY: 
1000 THE INDEX IS 1 
1010 THE INDEX IS 2 
1020 THE INDEX IS 3 

READY 



11.2 IMAGE SPECIFICATIONS 

An image is a string fbot contains formot characters and printing characters. The format characters 
form specifications that describe hem the values of the arguments of the USING statement will be 
arranged on an output tine. More thon one ifsecification con be present in on image, but to ovoid 
ambiguities when outputting numben, the user should s e poro t e numeric specifications by string specifi- 
cations, printing characters, or spaces. Note thot spaces ore printing characters and, therefore, as 
many spaces as are inserted between specifications will be inserted between the output items. That is, 
if two spaces separate a numeric specification from the preceding specification, two spoces will sepa- 
rate the numbers that are output according to these specifications. If numeric specifications are not 
separated from one another, ambiguities will generally exist and BASIC will moke arbitrary decisions 
about the specifications. In general, it will accept as much of the specifications as it can, stopping 
when a character is seen that clearly delimits a specification because it considers that it has reached 
the end of the specification. String specifications need not be separated from one another because 
they are not ambiguous. Printing characters are output exactly as they appear in the image. 

Image specifications can be divided into three major kinds: 

a. Numeric image specifications 

b. Edited numeric image specifications 

c. String image specifications 
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11.2.1 Num«ric Imag« Specifications 

Numwic imog* specifications are used to describe the formats of integer and decimal numbers. Format 
charocters within the image specification indicate the digits, sign, decimal point, and exponent of the 
number. Numbers in BASIC normally contain eight significant digits, and never contain more than 
nine significant digits. If a numeric image specification would cause a number to be output with more 
than nine significant digits, zeroes are substituted for all digits after the ninth. The format characters 
in all numeric image specifications must be contiguous. 

The format characters used in numeric image specifications are: 

' (number sign) 

. (decimal point) 

1 1 1 11 (four up-arrows) 

Number signs in the specification indicate the digits in the number and a minus sign if the number 
is negative. At least two number signs must be present at the beginning of the image specification; 
an isolated number sign is treated as a printing character. A number sign is written in the image 
specification for each digit in the number to be output plus one additional number sign to indicate 
a minus sign if the number to be output is negative. For example, to output a negative four^digit 
integer, at least five number signs should be written in the image specification; a non-negative 
number containing four digits requires only four number signs. 

11 .2.1 .1 Integer Image Specifications - Numbers can be output as integers by means of an image 
specification containing only number signs. As stated above, an additional number sign must be in- 
cluded in the image specification for a minus sign if the number is negative. If the number is positive 
or zero, no sign is output; if the number is negative, a minus sign is output. If insufficient characters 
are present in the image specification, an ampersand (^ is placed in the first position of the output 
field and the field is widened to the right to accommodate the number. If the image specification 
width is larger than necessary to accommodate the number, the number is right-justified in the output 
field. The number to be output is truncated to an integer if it is not on integer. An example showing 
integer image specifications follows. 



i;? F EAD A,3 ,C,D,t. 

^■/. nAia 25. r>, -14.7, 4, -'^.l, -4IS76.3 

id PRINT USI MG "#### ###", A, J, C 

AH A$ ="#####" 

y^ pr i m usi ng a$, d, e 

f^Z END 
FUNNH 



1 


^5 -14 
4 


1 


A-41376 



On some Teletypes, the circumflex ( '^ ) is used instead of the up-arrow (t). 
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1 1 .2.1 .2 Decimal Image Specifications - Decimal image specifications must contain number signs, as 
in integer image specifications, and a single decimal point. Optionally, the user can include four 
up-arrows ( 1 1 1 1) at the end of a decimal specification to indicate that the number is to be output with 
an explicit exponent. A number output under control of a decimal image specification always contains 
an explicit decimal point. 

When four up-arrows are present in the image specification, an explicit exponent is output in the form 
E:tnn. The sign of the exponent is always output, a plus sign for positive or zero exponents, a minus 
sign for negative exponents (e.g., E+01). 

The decimal point in the image specification causes the decimal point to be fixed in the output field. 
Thus number signs that precede the decimal point in the image specification reserve space in the output 
field for the digits before the decimal point and a minus sign if the number is negotive. At least one 
digit is always output before the decimal point, even if the digit is zero. The number signs that follow 
the decimal point in the image specification reserve space for the digits after the decimal point in the 
output field. 

If the number is to be output with an explicit exponent, a position must be reserved for the sign of the 
number even if the number is positive (a space is output for the sign of a positive number). When the 
number with the exponent is output all of the positions before the decimal point in the output field are 
used and the exponent is adjusted accordingly. If the number is not to be output with an explicit 
exponent, and more spaces are reserved before the decimal point than are necessary, the number is 
right-justified in the output field and leading spaces are appended. If insufficient spaces are reserved 
before the decimal point, an ampersand (8) is placed in the first position of the output field and the 
field is widened to the right to accommodate the number. 

Whether or not the number is output with an explicit exponent, as many digits are output following 
the decimal point as there are number signs following the decimal point in the image specification. 
The number is rounded or trailing zeros are added if necessary. 

An example of the use of decimal image specifications follows. 



1^ PEAD A,3,C,D,E;,F 

I3iJ PRINT USING 20, A,B,C,D,E,r 

A7. DATA 100.256, 3.6, ?13. 24318 

S./1 nATA-/i< t a on o cc 



5i5 DATA -4.6, 3, 0.01*256 

62 PFINT 



7t3 
80 
90 END 

FUNNH 



r-t- 1 N 1 

PF INT USING 80, 100.2, 14 

:###.# TTtT ### . TTTt 
FMD 



ipe 


.^6 


4. 


&218.2432 


-4 


.60 


3. 


0.0126 


ir. 


0E+01 




1 4. £+00 
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11.2.2 Edited Numeric Imog* Speciflcafion 

For thoM u$«ri who wish fo output numbers In a form suitable for accounting reports, poyrolls, and the 
like, additional format characters can be included in numeric image specifications to cause the numbers 
to be edited. The format characters used for edited numeric specifications are: 

, (comma) 

(minus sign) 
♦ (asterisk) 
$ (dollar sign) 

Comma 

Onm or more commas in the integer port of a numeric imoge specification causes the digits in the out- 
put number to be grouped into hundreds, thousarKis, etc., and separated by commas (e.g., 1,000,000). 
The commas, however, cannot be in the first two places in the specification. Only one comma need 
be preserrt in the image specification for the number to be output with commas in the required places, 
but a pound sign or a comma must be present in the image specification to reserve space for each comma 
to be output. For example, to print the number 1 ,365,072, the image specification must contain one 
I comma and at least eight pound signs ond/or commas. It is useful, however, to position commas in the 
specification where they will appear when they are output, e.g., ",'",'#', A comma that is not 
part of a numeric image specification is treated as a printing character. 



Example: 



10 PRINT USING " *#######", 1 E-a,! E5# 1 F6 

20 PRINT 

30 PRINT USING 40* -141516.8 

40 :###*#####.# 

50 END 

RUNNH 

10*000 

1 00*000 

Al *000*000 

-141 *516.8 

Trailing Minus Sign 

A trailing minus sign in a numeric Image specification causes the number to hove its sign printed at 
its end, rather than af its beginning (e.g., 27-). A trailing minus sign In a number is often used in a 
report to Indicate a debit. When a trailing minus sign Is present In the Image specification, a position 
need not be saved at the beginning of the image specification for the sign of the number, since the 
minus sign reserves a place for the sign. When the trailing minus sign is present In the image specifi- 
cation and the output number Is positive or zero, the sign field on output is blank. A minus sign that 
does not end a numeric Image specification Is treated as a printing character. 
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Example: 

10 PRINT USING "###-"*10*-14#137.8 

20 PRINT 

30 PRINT USING 40# -141516.8* -14 

40 :##,*####.#- ##.tttt- 

50 END 

RUNNH 

10 
14- 
137 

141*516.8- 14.E*00- 

Leading Ast«risk 

If a numeric image specification begins with two or more asterisks instead of number signs, the number 
is output with leading asterisks filling any unused positions in the output field. Leading asterisks ore 
often used when printing checks or in any applicotion that requires that the numbers be protected (i .e. , 
so that no additional digits can be added). 

Within an image specificotion^ an asterisk can replace one or all of the number signs. In image speci- 
fications with leading asterisks, negative numbere can be output only if there is a trailing minus sign 
in the image specification. If a trailing minus sign is not present in the image specification and an 
attempt is made to output a negative number, an error mesnge will be issued. Thus, an acklitional 
position need not be soved for a leading sign. Four up-onrows cannot be present in an image specifi- 
cation that contains leading asterisks. Thus, numbers with explicit exponents cannot be output with 
leading asterisks. An isolated asterisk in an imoge is treat ed as a printing character. 

An example showing image specifications with leading asterisks follows. 

AJs"***,**" 

READ X#Y*Z*W*U 

DATA 13.56* 4.577* 3.1* 19.612* 100.50 

PRINT USING AS* X*Y*Z*W*U 

PRINT 

PRINT USING "***♦*,*♦* ♦»##-", 1E6*-1E3 

END 



10 




20 




25 




30 




35 




40 




50 




RUNNH 


♦ 13 


.56 


**4 


.58 


♦♦3 


.10 


*19 


.61 


100 


.50 



1*000*000 1000- 
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FiwiHnq Dollar S?gn 

If a numarte imaga specification bagim with two or more dollar signs Instead of number signs, the num- 
ber is output with a floating dollar sign. That is, a dollar sign is always output in the position immedi- 
ately preceding the first digit of the number, even if there are fewer digits in the number than there 
positions specified in the image specification. This capability is often used to protect checks so that 
there art never any spaces left between the dollar sign and the number. 

The dollar sign can replace any or all of the nx)mb9r signs in the image specification (i .e., $$$$.$$ Is 
exactly the same as $$'^.^^). An additional position of the beginning of the image specification must 
be indicated to sove a place for the dollar sign in the output field. 

When the floating dollar sign Is used In the Image specification, negative numbers con be output only 
If there Is a trolling minus sign. If a trailing minus sign Is not present In the imoge speciflcotion and 
an u tteti y t Is made to output a negotfve number, on error m twa g a Is inued. Thuf, a spoce need not be 
reserved for a leodlng sign in the output field. Four up-«rrows cannot be preient In a numeric image 
speeifleotton thot contains dollar signs. Thus, numbers with explicit exponent s cannot be output with 
floating dollar signs. An Isoloted dollar sign In an Imoge Is treated as a printing character. 

An example showing floating dollor sign speclflcotlons follows. Note that the Image In line 10 con- 
tains a decimal numeric Image specification thot Is preceded by a dollar sign. This single dollar sign 
Is treated as a printing character and, as shown In the example. Is fixed In the output field . 



10 


tSSSS.SS $####•## 


20 


READ A»B«C 


25 


DATA 100.43« 19.678« 0.97 


30 


PRINT USING 10« A#A#B*B*C*C 


35 


PRINT 


40 


PRINT USING ••$$##**", 1000 


50 


END 


RUNNH 




S100.43 


S 100.43 


S19.68 


S 19.68 


$0.97 


$ 0.97 


S1*000 





11.2.3 String Image Specifications 

The string image specifications allow the user to right-justify , left-justify, or center strings in the 
output field. In addition, the user can specify an image that causes the width of the output field to be 
exterxled if the string Is larger than the image specifies. The formot characters used for string output 
ore: 
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' (apostrophe) 

C (center) 

L (left-jusMfy) 

R (right-justify) 

E (extend) 

A string image specification contains one apostrophe (') and as many of the format characters C, L, R, 
or E as are necessary to output the string. The apostrophe is counted with the format characters when 
BASIC determines the length of the output field. The format characters cannot be mixed within an 
image specification. If the image specification contains only the apostrophe, only the first character 
in the string is output. The characters in a string image specification must be contiguous. 

C Format Character 

C format characters following the apostrophe in a string image specification cause the string to be 
centered in the output field. If a string cannot be exactly centered (e.g., a two-character string in a 
three-character field), it will be off-center one character position to the left. If the string to be out- 
put is longer than the image specification, the string is left-justified in the output field and the right- 
most characters that overflow are truncated . 

L Format Character 

L format characters following the apostrophe in a string image specification cause the string to be left- 
justified in the output field. If the string to be output is longer than the image specification, the string 
is left-justified in the field and the rightmost characters that overflow are truncated. 

R Format Character 

R format characters following the apostrophe in a string image specification cause the string to be 
right-justified in the output field. If the string to be output is longer than the image specification, the 
string is left-justified in the field and the rightmost characters that overflow are truncated. 

E Format Character 

E format characters following the apostrophe in a string image specification cause the string to be left- 
justified in the output field. If the string to be output is longer than the image specification, the out- 
put field is widened (extended) to the right to accommodate all the characters in the string. 

The following example shows the use of string image specifications. 
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150 

HUNNH 



: 'CCCC 'FFFE 'LLLL ' HhHH 

INPLIT AT 

IF A$s"STOP" GO TO 1 5« 

PRINT USING 1M0* A$#AJ,A$,A$#AJ 

GO TO 1 1« 

FND 



?ABCD 

ABCD APCD ABCD AbCD A 

?ABCDFF 

ABCDF APCDEF ABODE ABODE A 

?A 

A A A A A 

?STOP 



Note fhot the last three fields in the second line printed are dtspiace<rone position because of the field 
extension necessary in the second field of the line. 

11.2.4 Prl nti ng C harocten 

All characters in an image that are not format control characters are printing characters. Printing 
characters are output exactly as they appear in the image. Format control characters only appear as 
part of image specifications; if a character used as a format control character (e.g., $, E, *) does 
not appear as part of an imoge specification, it is treoted as a printing character. If the USING 
statement does not use all of the specifications in an image, all of the printing characters except those 
following the unused specifications are printed. Similarly, if the USING statement uses the specifica- 
tions in an image more than once, the printing characters in the image will be output as many times as 
the image is used. An example showing the use of printing characters in images follows. 



20 
30 

i!l0 

50 
(^0 
70 
H0 
9 
1 00 

HEADY 



'F. TRUNCATED ' RRRR ROUNDED 

THE DATE IS: •RRRRRRR1972 
A=### AND THE SQUARE ROOT OF A=*# 
PRINT USING 20,*M-JULY-" 
PRINT 

PRINT USING 10^ "ALL NUMERIC OUTPUT FROM THIS PROGRAM IS" 
PRINT 
A = 25 

PRINT USING 30, A, 5QRCA) 
END 



THE DATE IS: 1 -JULY- 1972 

ALL NUMERIC OUTPUT FROM THIS PROGRAM IS TRUNCATED 
A= 25 AND THE SCUARE HCOT OF A= 5 
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APPENDIX A 

SUMMARY OF BASIC STATEMENTS 



A. 1 ELEMENTARY BASIC STATEMENTS 

The following subset of fhe BASIC command n»pertoire includes the most commonly used commands and 
is sufficient for solving most problems. 



DATA [data list] 

READ [sequence of variables] 



PRINT [sequence of formulas and 
format control characters] 



LET [variable] = [formula] or 
[variable] = [formula] 

GO TO [line number] 



IF [fonnula] [relation] [formula] , 
[gOTO^ [line number] 



FOR 



Inumeri 
[_varf 



rwricl fr 1 1 -rry 

.11 = Lformula,j TO 

lablej ■ 



[fonnula2] { BY / 



NEXT 



NEXT 



numeru 
variabU _^ 
numeric numeric 
variable, vorioble. 



[formula^J 



JeJ 



DATA statements are used to supply one or more 
numbers or alphanumeric strings to be accessed by 
READ statements. READ statements, in turn, assign 
the next available data, numeric or string as appro- 
priate, in the DATA statement to the variables 
listed. 

Types the values of the specified formulas, which 
may be separated by format control characters. If 
two formulas are not separated by one or more for- 
mat control characters, they are treated as though 
they were separated by a semicolon. 

Assigns the value of the formula to the specified 
variable. 

Transfers control to the line number specified and 
continues execution from that point. 

If the stated relationship is true, then transfers con- 
trol to the line number specified; if not, continues 
in sequence. The comma preceding THEN and GO 
TO is optional. 



Used for looping repetitively through a series of 
steps. The FOR statement initializes the variable 
to the value of formula^ and then performs the fol- 
lowing steps until the NEXT statement is encountered. 
The NEXT statement increments the variable by the 
value of formula^. (If omitted, the increment value 
numeric"! is assumed to be +1.) The resultant value is then 
variable compared to the value of formula2. If variable 

<formula2, control is sent back to the step following 
the FOR statement and the sequence of steps is re- 
peated; eventually, when variable >formula2, con- 
trol continues in sequence at the step following the 
current NEXT argument. 
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-. , , , /"go id\ ... 
°'^ " ' [then ] "• 



ns nufnMMT I /J 



[im« numb«r2/J • • • • Cilne number^] 

DIM [voriobU] (subscript) or 
DIMENSION [vorlobU] (subscript) 

END 



If the intager portion of x = 1 , transfers control to 
line number^, if x - 2, to line number2, etc. [x] 
may be a formula. Tt>e commo preceding GO TO 
and THEN is optional . 

Enables the user to enter a table or array with a 
subscript greater than 10 (i.e. , more than 10 items), 

Last statement to be OKecuted in the program, and 
must be present. 



A.2 ADVANCED BASIC STATEMENTS 

GOSUB [line natrhmrl 

[line number] 

Subroutine i 



or 



RETURN 



INPUT [variable(s)] 



STOP 



REM 



RESTORE 

string fonnuia 
CHANGE or 

numeric vecfor 

TO 
numeric vector 

or 
string variable 

CHAIN [string formula] 
CHAIN [string formula] , 
[numeric formula] 

MARGIN [numeric formula] 

PAGE [numeric formula] 

NOPAGE 

QUOTE 

NOQUOTE 



Simplifies the execution of a subroutine at several 
different points in the program by providing an auto- 
matic RETURN from the subroutine to the rwKf se- 
quential statement following the appropriate GOSUB 
(the GOSUB which sent control to the subroutine). 



Causes typeout of a ? to the user and waits for user 
to respond by typing the value(s) of the variable(s). 

Equivalent to GO TO [line number of END state- 
ment] . 

Permits typing of remarks within the progrom. The 
insertion of short commertts following any BASIC 
statement (except an image statement) is accom- 
plished by preceding such comments with an apos- 
trophe ('). 

Sets pointer bock to beginning of string of DATA 
values. 



Changes a strir>g formula to a numeric vector, or 
choriges a numeric vector to a string variable. 



Stops execution of the current program and begins 
execution of the new program ot the beginning or 
at the specified line. 

Sets the Teletype to the specified output margin. 

Output to the Teletype is divided into pages of the 
specified length. 

Output to the Teletype is not divided into pages. 

The Teletype is set to quote mode (see Chapter 10). 

The Teletype is set to noquote mode (see Chapter 10). 
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line number 
PRINT USING or 

string formula 
[sequence of formulas] 



Types the values of the formulas in the format de- 
termined by the image specified by the line mjmbe 
or string formula. 



A. 3 MATRIX INSTRUCTIONS 



NOTE 



The word "vector" moy be substituted for the word 
"motrix" in the following explanatiorti. 



MAT READ o, h, c 

MAT c = ZER 
MAT c = CON 
MATc=IDN 
MAT PRINT a, b, c 
MAT INPUT V 
MAT b = a 
MAT c = a + b 
MAT c = a - b 
MAT c * a * b 
MAT c ^ TRN(a) 
MAT c == (k) * a 

MAT c = INV(a) 



Read the three matrices, their dimensiorts having 
been previously specified. 

Fill out c with zeros. 

Fill out c with ones. 

Set up c as an identity matrix . 

Print the three matrices. 

Input a vector. 

Set motrix b = matrix a. 

Add the two matrices, a and b. 

Subtract matrix b from matrix a. 

Multiply matrix a by matrix b. 

Transpose matrix a. 

Multiply matrix a by the number k. (k, which 
must be in parentheses, may also be given by a 
numeric formula.) 

Invert matrix a. 



(Refer to Section A. 5 for the special matrix functions NUM and DET.) 



A. 4 DATA FILE STATEMENTS 

FILE [sequence of [channel specifier] 
[f i lename arguments] ] 

FILES [sequence of filename arguments] 

SCRATCH [sequence of channel 
specifiers] 

RESTORE [sequence of channel 
specifiers] 



Assigns files to channels during program execution. 

Assigns files to channels before program execution 
begins. 

Erases a sequential access file and puts it in write 
mode; or erases a random access file and sets the 
record pointer to the beginning of the file. 

Puts a sequential access file in read mode or sets 
the record pointer for a random access file to the 
beginning of the file. 
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WRITE [channel specifier] 

[sequence of fonmulasJ 

READ [channel specifier] 

[sequence of voriablesJ 

PRINT [channel specifier] 

[sequence of formulas] 

INPUT [channel specifier] 

[sequence of variables] 



IF END [channel specifier] , 

[go^o] ^'•"•""'^«'^ 

MARGIN [sequence of [channel 
specifier] [numeric formula]] 

MARGIN ALL [numeric formula] 



PAGE [sequence of [channel 
specifier] [numeric formula]] 

PAGE ALL [numeric formula] 



NOPAGE [sequence of channel 
specifiers] 

NOPAGE ALL 



QUOTE [sequence of channel 
specifiers] 

O'JCTEALL 



NOQUOTE [sequence of channel 
specifiers] 

NOQUOTE ALL 



SET [sequence of [channel specifier] 
[numeric formula]] 



PRINT [channel specifier] , USING 

line number j ^ r 

[sequence of 

formulas] 



or 
string formula 



or 



PRINT USING [channel specifier] , 



Causes data to be output to a file on the specified 
channel . Used for sequential access files with line 
numbers, or for random access files. 

Causes dota to be input from a file on the specified 
channel. Used for sequential access files with line 
numbers or for random access files. 

Causes data to be output to a file on the specified 
channel . Used for sequential access files without 
line numbers or for random access files. 

Causes data to be input from a file on the specified 
channel . Used for sequential access files without 
line numbers or for random access files. 

Determines whether or not there is data in a file 
between the current position and the end of the file. 
The comma preceding THEN or GO TO is optional. 

Sets the specified output margins for the sequential 
access files on the specified channels. 

Sets the specified output margin for the sequential 
access files on channels 1 through 9. 

Sets the specified output page sizes for the sequential 
access files on the specified channels. 

Sets the specified output page size for the sequential 
access files on channels 1 through 9. 

Output to the sequential access files on the spec- 
ified channels is not divided into pages. 

Output to the sequential access files on channels 
] through 9 is not divided into pages. 

Puts the sequential access files on the specified 
channels into quote mode (see Chapter 10), 

Puts the sequential access files on channels 1 
through 9 into quote mode (see Chapter 10). 

Puts the sequential access files on the specified 
channels into noquote mode (see Chapter 10). 

Puts the sequential access files on channels 1 
through 9 into noquote mode (see Chapter 10). 

Moves the record pointers for random access files. 

Causes data to be output to a sequential access file 
without line numbers on the specified channel. 
The data is output In the format determined by the 
image specified by the line number or string for- 
mula. In the first form, the comma following the 
channel specifier can be omitted. 



line number 
string formula 



[sequence of 
formulas] 
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WRITE [chcmn«l sp«cin«r] , USING 

L«K|u«fK:« of 
Formulat] 



or 
ih-fng formula 



or 



WRITE USING [channel specifier] , 
[sequence of 
' formulcnJ 



Causes data to be output to a I ine-mimbered se- 
quential access file on the specified channel. The 
dota is output in the format determined by the image 
specified by the line number or string fonnula. In 
the first form, the comma following the channel 
specifier con be omitted. 



line nui 
or 
string fonnula 



A.5 FUNCTIONS 

In oddftion to the common arithmetic u perotor s of oddition {+), subtraction (•■), multiplication (*), 
dfviirion (/), and eKponentkition (t or **), BASIC includes the following elementary numeric functions: 

SIN (numeric formula) COT (numeric formula) LOG, or LN, or LOGE (numeric formula) 

COS (numeric formula) ATN (numeric formula) ABS (numeric formula) 

TAN (numeric formula) EXP (numeric formula) SQR or SQRT (numeric formula) 

CLOG or LOGIO (numeric formula) 

Some advanced numeric functioni include the following: 



INT (numeric formula) 
RND 



SGN (numeric formula) 



TIM 



Finds the greoteit integer not greater than its argu- 
ment. 

Generates rondom numbers between and 1 . The 
same set of rondom numbers can be g enertrt e d re- 
peatedly for puq>oses of progrom testing and debug- 
ging. The statement 

RANDOMIZE 

can be used to cause the generation of new sets of 
random numbers. 

Assigns a value of 1 if its argument is positive, 
if its argument is 0, or -1 if its argument is negotive, 

Returns the elapsed execution time, in seconds, 
since the program started execution . The time does 
not include compile and load time except when 
programs ore chained. In such a case, the compile 
and load times of the programs after the first ore in- 
cluded in the time returned. 



Two functions uaed with matrix computations are as follows: 



NUM 
DET 

Two functions for use with random access files are: 



Equals number of components following on INPUT. 
Equals the determinant of a matrix after inversion. 



LOC (channel specifier) 



LOF (channel specifier) 



Returns the number of the current record in the file 
on the specified channel . 

Returns the number of the last record in the file on 
the specified channel . 
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Functioni for manipulating strings are: 



ASC (on* choractor or a 2- or 
3-l«tt«r cod*) 

CHR$ (num*rfc formula) 



INSTR (numeric formula, string 
formula, string formula) 
or 

INSTR (string formula, string 
formula) 



LEFTS (string formula, numoric 
formula) 



LEN (string formula) 

MID$ (string formula, numoric 

fornnilo, numeric formula) 
or 

MID$ (string fonmila , numoric 
formula) 



RIGHTS (string formula, numoric 
formula) 



SPACES (numoric formula) 

STRS (numeric formula) 
VAL (string formula) 



Rotums th* ct*cimal ASCII cod* for its argument. 
The two- or three-letter codes ore listed in Table 
8-1. 

The opposite function to ASC. The argument is 
trufKoted to on integer that ii interpreted as on 
ASCII decimal number; a one-chorocter string is 
returned . 

Searches for the second string within the first string 
argument. In the first form, the search storts at the 
character position specified by the numeric formula, 
truncated to an integer. In the second form, the 
search starts at the beginning of the string. Returns 
zero if the substring not found; returns the position 
of the first character in the substring if it is found. 

Returns o substring of the string formula , starting 
from the left. The substring contains the number of 
characters specified by the rwmeric formula trun- 
cated to an integer. 

Returns the number of choractera in its argument. 

Returns a substring of the string formula, stortirig of 
the character position specified by the first numeric 
formula truncated to on integer. In the first form, 
the substring contains the number of characters 
specified by the second numeric formula truncoted 
to on integer. In the second form, the substring 
continues to the end of the string. 

Returns a substring of the string formula, starting 
from the right, containing the number of characters 
specified by the numeric formula truncated to an 
integer. 

Returns a string of the number of spaces specified 
by the numeric formula truncated to an integer. 

Returns a string representotion of its argument. 

The opposite function to STRS. Returns the number 
that the string argument represents. 



The user con also define his own furKtions by use of the DEFine statement. For example, 
[line number] DEF FNC(x) = SIN (x) + TAN(x) - 10 

where x Is o dummy variable. (Define the user function FNC as the formula SIN(x) + TAN(x) - 10.) 

NOTE 

DEFine statements may be exterKJed onto more than one 
line; oil other statements are restricted to a single lirte 
(refer to Section 5.1.5). 
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APPENDIX B 

BASIC DIAGNOSTIC MESSAGES 



Most messages typed out by BASIC ore self-explonotory, BASIC diagnostic messages are divided into 
three categories and listed in the three tables below: 

a. Command errors in Table B-1 

b. Compilation errors in Table B-2 

c. Execution errors in Table B-3 

Toble B-1 
Command Error Messages 



Message 


Explanation 


7CANNOT INPUT FROM THIS DEVICE 

7CANNOT OUTPUT TO THIS DEVICE 
9CANNOT OUTPUT filenm.ext 

7CATALOG DEVICE MUST BE DISK OR 
DECtope 

7COMMAND ERROR (YOU MAY NOT OVER- 
WRITE LINES OR CHANGE THEIR ORDER) 

7COMMAND ERROR (LINE NUMBERS MAY 
NOT EXCEED 99999) 

7DELETE COMMAND MUST SPECIFY WHICH 
LINES TO DELETE 

7DUPLICATE FILENAME, REPLACE OR 
RENAME 

7DU PLICATE SWITCH IN QUEUE ARGUMENT 

7FILE devrHlenm.ext COULD NOT BE 
UNSAVED 

7FILE devrfilenm.ext NOT FOUND 


An attempt has been made to input to a device that 
can only do output, or vice verso. 

A COPY, SAVE, or REPLACE command could not 
enter a file to output it. The actual name of the 
file is typed, not filenm.ext. 

A device other than disk or DECtape was specified 
in a CATALOG command. 

The given RESEQUENCE command would have 
changed the order of lines in the file. The com- 
mand is ignored. 

The given RESEQUENCE command is not executed 
for that reason . 

A DELETE command has no arguments. 

User tried to SAVE a file that already exists. 

Two switches of the same type have been specified 
for one QUEUE argument. 

A file that wos requested did not exist. 
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Table B-1 fCont) 
Command Error Mewoges 





Mewag* 


Explonotion 




?LINE TOO LONG 


A line of input Is greofer than 142 character^, no^ 
counting the terminoting corriage rehjm , \'ne ^eec. 


1 


9LOGOUT FAILED — TRY AGAIN 


A BYE or GOODBYE comrrand could not transfer 
control to the LOGOUT system program. 




7MISSING LINE NUMBER FOLLOWING 
LINE nn* 


During a WEAVE or OLD commend, o line wit+out' 
a line number wos found in the file. The line is 
thrown owoy. 




9NOSUCH DEVICE, device 


The device is not ovailable. 




7PAGE LIMIT >9999 OR < 1 IN QUEUE 
ARGUMENT 


A LIMIT switch for a QUEUE argument was out o^ 
bounds. 




?QUOTA EXCEEDED OR BLOCK NO. TOO 
LARGE ON OUTPUT DEVICE 


Nomolly, this indicotes thot all of the space ollow- 
ed on the output device hos been used; no more can 
be output to this device unless some of the user's 
files ore deleted from it. T^is con olso meon that 
tKe block numer is too large for the output device. 




7THIS COMMAND IS NOT IMPLEMENTED FOR 
THIS MONITOR 






7UNDEFINED LINE NUMBER mm IN UNE nn 






7UNSAVE DEVICE MUST BE DISK OR DECTAPE, 
FILEdevrfTlenm.ext 


A device other then disk or DECtape wos specTHed 
in an UNSAVE commcmd. 




7WHAT? 


Cotchall commond error. 


1 


7>63 OR < 1 COPIES REQUESTED IN QUEUE 
ARGUMENT 


A COPIES twitch for a QURJE argufmM wos out of 
bounds. 




*If the curmnf progrom wos called by a CHAIN jtotemenf, fhe name of the currant program Ij appended 
fo fhe error messoge. 
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Table B-2 
Compilafion Error Messages 



Message 


Explanation 


?BAD DATA INTO LINE n 


Input data is not in correct form. 


?DATA IS NOT IN CORRECT FORM 


Incorrect number or string data in a DATA state- 




ment. 


?END IS NOT LAST IN nn 




?EOF IN LINE nn 


An attempt was made to read data from a file after 
all data had been read. 


?FAILURE ON ENTRY IN LINE nn 


Channel is not available for SCRATCH command. 


?FNEND BEFORE DEF IN LINE nn 


FNEND occurs, but not in a function DEF. 


?FNEND BEFORE NEXT IN LINE nn 


A FOR occurred in a DEF, but its NEXT did not. 


?FOR WITHOUT NEXT IN LINE nn 




?GOSUB WITHIN DEF IN LINE nn 


A GOSUB statement is within a multiple line DEF. 


9FUNCTION DEFINED TWICE IN LINE nn 




9ILLEGAL ARGUMENT FOR ASC FUNCTION 




IN LINE nn 




? ILLEGAL CHARACTER IN LINE nn 


A meoningless character; e.g., DIM^ (1). 


9ILLEGAL CONSTANT IN LINE nn 




7ILLEGAL FORMAT IN LINE nn 


Catchall for other syntax errors. 


9ILLEGAL FORMAT WHERE THE WORDS 




THEN OR GO TO WERE EXPECTED IN 




LINE nn 




7ILLEGAL FORMULA IN LINE nn 


Syntax error in arithmetic formula. 


7ILLEGAL INSTRUCTION IN LINE nn 


The first three non-blank, non-tab characters of 
the statement do not match the first three charac- 
ters of any legal statement. 


9ILLEGAL LINE REFERENCE IN LINE nn 


BASIC syntax required an integer, but user typed 
something else; e.g., GO TO A. 


9ILLEGAL LINE REFERENCE mm IN LINE nn 


In line nn, line mm was referred to illegally 
because: 




a. Line mm is a REM 

b. The first character in line mm is on 
apostrophe ('). 

c. One of the lines nn or mm is inside 
a function; the other is not inside 
that function. 


9ILLEGAL RELATION IN LINE nn 


Incorrect IF relation. 


? ILLEGAL VARIABLE IN LINE nn 




NOTE: If the currenf program was called by a CI 
appended to all compilation error messoges. Far 


HAIN statement, the name of the current program is 
example, NO DATA IN TEST.BAK. 
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TabU B-2 (Cont) 
Compilation Error McttogM 



M«iiage 


Explanation 


7INCORRECT NUMBER OF ARGUMENTS IN 
LINE nn 


A function used with the wrong number of argu- 
ments. 


?INITIAL PART OF STATEMENT NEITHER 
MATCHES A STATEMENT KEYWORD NOR 
HAS A FORM LEGAL FOR AN IMPLIED LET- 
CHECK FOR MISSPELLING IN LINE nn 




7MIXED STRINGS AND NUMBERS IN LINE nn 


Line nn illegally a>ntains a string variable or lit- 
eral because: 




a. No element of this statement may be a 
string. 




b. All elements must be strings but some 
were not. 


?NESTED DEF IN LINE nn 


DEF within multiline DEF. 


?NEXT WITHOUT FOR IN LINE nn 




7nn IS NOT AN IMAGE IN LINE nn 


The specified line was referenced by a USING 
statement as an image, but it is not an image state- 
ment. 


?NO CHARACTERS IN IMAGE IN LINE nn 




?NO DATA 


Rrogrom contains READ but not DATA. 


?NO END INSTRUCTION 




?NO FNEND FOR DEF FNx 


The multiline DEF for FNx (the actual function 
name, not FNx is typed) has no FNEND. 


?OUT OF ROOM 


Cannot get more core to moke room for: 




a. More compilation space. 




b. Maximum space for all the vectors 
and arrays 




c. Space to store another string during 
execution. 


?RETURN WITHIN DEF IN LINE nn 


A RETURN statement is within a multiple line DEF. 


7SPECIFIED LINE IS NOT AN IMAGE IN 
LINE nn 




7STRING RECORD LENGTH >132 OR<1 IN 
LINE nn 


The length of a record in a string random access 
file was specified as greater than 132 or less than 1 . 


9STRING VECTOR IS 2-DIM ARRAY 


The user managed to do this error despite many 
other checks. 


NOTE: If the currenf program was called by a CH 
appended to ail compilation enror messages. For e 


AIN statement, the name of the current program is 
xomple, NO DATA IN TEST.BAK. 
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Table B-2 (Cont) 
Compilation Error Messages 



Message 


Explanation 


7SYSTEM ERROR 

?TOO MANY FILES IN LINE nn 

?UNDEFINED FUNCTION — FNx 
7UNDEFINED LINE NUMBER mm IN LINE nn 

?USE VECTOR, NOT ARRAY IN LINE nn 

7VARIABLE DIMENSIONED TWICE IN LINE nn 
? VECTOR CANNOT BE ARRAY IN LINE nn 

?Charactwr WAS SEEN WHERE charac1«r, 
WAS EXPECTED IN LINE nn ^ 


An j/O error, or the UUO mechanism drops a bit, 
or something similar to those errors. 

A maximum of nine files can be open at one time 
in a program . 

The actual function name, not FNx, is typed. 

In line nn, mm is used as a line number. Line num- 
ber mm does not exist. 

A variable previously defined as a two-dimensional 
array is now used in MAT input or CHANGE. 

A variable previously used in a MAT INPUT or 
CHANGE statement is now defined as a 2-dimen- 
sional array in a DIM statement. 

An erroneous character was used In place of the 
correct character. Character, and character^ are 
replaced by the appropriate characters or a 
phrose describing the characten when the message 
is issued. 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all compilation error messages. For example, NO DATA IN TEST.BAK. 



Table B-3 
Execution Error Messages 



Message 


3 

Explanation 


%ABSOLUTE VALUE RAISED TO POWER IN 
LINE nn 

7ATTEMPT TO OUTPUT A NEGATIVE NUMBER 
TO A $ OR * FIELD IN LINE nn 

7ATTEMPT TO OUTPUT A NUMBER TO A 
STRING FIELD OR A STRING TO A NUMERIC 
FIELD IN LINE nn 

? ATTEMPT TO READ* OR INPUT* FROM A 
FILE WHICH DOES NOT EXIST IN LINE nn 

7ATTEMPT TO READ* OR INPUT* FROM A 
FILE WHICH IS IN WRITE* OR PRINT* MODE 
IN LINE nn 


A USING statement attempted to output a negative 
number to a floating dollar sign or leading asterisk 
field that did not end in a minus sign. 

A USING statement attempted to output a number 
to a string field or a string to a numeric field. 

An attempt was mode to read from a file that does 
not exist on the user's disk area. 

An attempt was mode to read from a sequential 
access file that ts not in read mode. 


NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all execution error messages. For example, LOG OF ZERO IN 20 IN TEST.BAK. 
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Table &-3 (Cont) 
Execution Error Messages 



Message 



?ArnEMPT TO WRITE A LINE NUMBER 
>99,999 IN LINE nn 

?AnEMPT TO WRITE' OR PRINT* TO A 
FILE WHICH HAS NOT BEEN SCRATCH'ED 
IN LINE nn 

7ATTEMPT TO WRITE* OR PRINT* TO A 
FILE WHICH IS IN READ* OR INPUT* 
MODE IN LINE nn 

?CHR$ ARGUMENT OUT OF BOUNDS IN 
LINE nn 

?DATA FILE LINE TOO LONG IN LINE nn 

7DIMENSION ERROR IN LINE nn 

%DIVISION BY ZERO IN LINE nn 

7EXPONENT REQUESTED FOR * OR $ FIELD 
IN LINE nn 

?FILE IS NOT RANDOM ACCESS IN LINE nn 

?FILE NEVER ESTABLISHED — REFERENCED 
IN LINE nn 

7FILE NOT FOUND BY RESTORE COMMAND 
IN LINE nn 

7FILE nienm.ext ON MORE THAN ONE 
CHANNEL IN LINE nn 

7FILE NOT IN CORRECT FORM IN LINE nn 

7FILE RECORD LENGTH OR TYPE DOES NOT 
MATCH IN LINE nn 

7IF END ASKED FOR UNREADABLE FILE IN 
LINE nn 



Explanafion 



An attempt was mode to write to a sequential 
ae^m file that is not in write mode. 



An attempt was mode to write to a sequential 
access file that is not in write mode. 



The argument to the CHR$ function was lets than 
zero or greater than 127. 

An attempt has been mcKie to read from a data file 
a line which is greoter than 142 characters long. 



The user tried to establish the some file on more 
than one channel. The actual filename and ex- 
tension are typed, not filenm.ext. 

A data error has been detected in a string random 
access file. 

An existing ron d om access file does match the type 
or record length specified for it in a FILE statement. 



• An OVERFLOW error message meons that an attempt has been mode to create a number larger in mag- 
nitude than the largest number representoble In the computer (approximately 1 .7E + 38); when this 
occurs, f-he largest representnble number is returned (with the correct sign) and execution continues. 
An UNDERFLOW error message means that an attempt has been made to create a nonzero number 
smaller in magnitude than the smallest representoble positive number (approximately 1 .4E ■^39); in this 
case, zero is returned and execution continues. Division by zero is considered overflow; the largest 
representoble positive number is returned. 

NOTE: If the current pr o gram was called by o CHAIN statement, the name of the current program is 
appended to all execution error messages. For example, LOG OF ZERO IN 20 IN TEST. BAK. 
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Table B-3 (Cont) 
Execution Error Messages 



Message 



Explanafion 



7ILLEGAL CHARACTER IN STRING IN LINE nn 

? ILLEGAL CHARACTER SEEN IN LINE nn 
?ILL£GAL FILENAME IN LINE nn 



? ILLEGAL LINE REFERENCE IN RUN (NH) OR 
CHAIN 

7IMPOSSIBLE VECTOR LENGTH IN LINE nn 



7INPUT DATA NOT IN CORRECT FORM — 
RETYPE LINE 

7INSTR ARGUMENT OUT OF BOUNDS IN 
LINE nn 

? LEFTS ARGUA^NT OUT OF BOUNDS IN 
LINE nn 

?LINE NUMBER OUT OF BOUNDS IN LINE 
nn 

%LOG OF NEGATIVE NUMBER IN LINE nn 

%LOG OF ZERO IN LINE nn 

%MAGNITUDE OF SIN OR COS ARG TOO 
LARGE TO BE SIGNIFICANT IN LINE nn 

7MARGIN OUT OF BOUNDS IN LINE nn 



7MARGIN TOO SMALL IN LINE nn 

?MID$ ARGUMENT OUT OF BOUNDS IN 
LINE nn 

7MIXED RANDOM & SEQUENTIAL ACCESS 
IN LINE nn 



An attempt has been made to write onto a data 
file a string containing an embedded line termina- 
tor or quote . 

An attempt has been made to create an illegal 
character in a CHANGE statement. 

The string argument is not in the correct form. If 
the argument is variable, check that it has been 
defined. 

The line at which execution is to begin is inside a 
multiline DEF. 

In a CHANGE (to string) statvment, the zero ele- 
ment of the number vector was negative or exceed e d 
its maximum dimension. 



The line number argument is les tban :nro or 
greater than 99,999. The RUN (NH) commondi 
return a 7WHAT7 message in this situation. 



When the argument for COS or SIN is too large to 
be significant, this message is ismed and an a ni wfer 
of returned. 

A MARGIN or MARGIN ALL stotement specified a 
margin greater than 132 characters or less than 1 
character. 

A WRITE* statement referenced a file that has a 
margin of fewer than seven characters. 



A random access statement or function referenced 
a sequential access file, or vice verso. 



NOTE: If the current program was called by a CHAIN statement, the name of the current program is 
appended to all execution error messages. For example, LOG OF ZERO IN LINE 20 IN TEST. BAK. 
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TobU B-3 
Execution Error 



(Cont) 
M0M09M 



Mmm9b 



Explanation 



?MIXED READ'/INPUT* IN LINE nn 
?MIXED WRITE' /PRINT* IN LINE nn 

7NEGATIVE STRING LENGTH IN LINE nn 

?NO FIELDS IN IMAGE IN LINE nn 
?NO ROOM FOR STRING IN LINE nn 



?NO SUCH LINE IN RUN (NH) OR CHAIN 

?NOT ENOUGH — ADD MORE 

?ON EVALUATED OUT OF RANGE IN LINE nn 

?OUT OF DATA IN LINE nn 

90UTPUT ITEM TOO LONG FOR LINE IN 
LINE nn 

70UTPUT LINE 132 CHARACTERS IN 
LINE nn 

70UTPUT STRING LENGTH RECORD 
LENGTH IN LINE nn 

%OVERFLOW IN LINE nn 
%OVERFLOW IN EXP IN LINE nn 



An attempt wot mode to reference a file with both 
a READ* end on INPUT* statement without on inter- 
vening RESTORE* statement. 

An attempt was mode to reference a file with both 
a WRITE' and a PRINT* statement without an inter- 
vening SCRATCH* statement. 

In a MID$, LEFTS, or RIGHTS function, a negotive 
number of choroctera wot specified for a substring. 

An image contains neither string nor numeric fields. 

In a CHANGE AS TO A, the number of characters 
in AS exceeds the maximum size of A. A DIM 
stotement appropriately increasing the size of A 
will cover this. 

The specified line does not exist in the progmn. 

The value of the ON index waB<1 or^ the num- 
ber of branches. 



In quote mode, on attempt was made to .write a 
string or number that is too long to fit on one line. 

A line of output created by a USING statement 
is greater than 132 characters. 

An attempt has been mode to output to a random 
access file a string which is too long to fit in one 
record. 



An exponent greater than 88.028 has been speci- 
fied for the EXP function. An answer of the largest 
representable number is returned and execution con- 
tinues, t 



t An OVERFLOW error message means that an attempt has been mode to create a number larger in mag- 
nitude than the largest number representable in the computer (approximately 1 .7E + 38); when this 
occurs, the largest representable number is returned (with the correct sign) and execution continues. 
An UNDERFLOW error message means that an attempt has been mode to create a nonzero number 
smaller in magnitude than the smallest representable positive numk>er (approximately 1 .4E - 39); in 
this cose, zero is returned and execution continues. Division by zero is considered overflow; the 
largest representable positive number is returrted. 

NOTE: If the current p r og r um was called by a CHAIN statement, the name of the current pi uy ram is 
appended to all execution error messages. For example, LOG OF ZERO IN 20 IN TEST.BAK. 
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Table B-3 (Cont) 
Execution Error AAessages 



Message 



Explanation 



?PAGE LfNGTH OUT OF BOUNDS IN LINE nn 

?QUOTA EXCEEDED OR BLOCK NO. TOO 
LARGE ON OUTPUT DEVICE 



7RETURN BEFORE GOSUB IN LINE nn 

?RIGHT$ ARGUMENT OUT OF BOUNDS IN 
LINE nn 

?SET ARGUMENT OUT OF BOUNDS IN 
LINE nn 

% SINGULAR MATRIX INVERTED IN LINE nn 

?SPACE$ ARGUMENT OUT OF BOUNDS IN 
LINE nn 



%SQRT OF NEGATIVE NUMBER IN LINE nn 

7STRING FORMULA 132 CHARACTERS IN 
LINE nn 

9STRING RECORD LENGTH 132 OR 1 IN 
LINE nn 



7SUBROUTINE OR FUNCTION CALLS ITSELF 
IN LINE nn 

%TAN OF Pl/2 OR COTAN OF ZERO IN 
LINE nn 

?TOO MANY ELEMENTS — RETYPE LINE 



A PAGE or PAGE ALL statement specified a page 
length of less than one line. 

Normally, this indicates that all of the space 
allowed on the output device has been used; no 
more can be output to this device unless some of 
the user's files ore deleted from it. It may also 
mean that the block number is too large for the 
output device. 



The user attempted to set the value of the pointer 
to zero or to a negative number. 



The SPACES function was requested to return a 
string that was less than or equal to zero or g re a l e r 
than 132 characters. 



A string formula contains more than 132 charocfen. 

The record length for a string random access file 
was specified as less than one or greater than 132 
charactere. 

FNA is defined in terms of FNB which is defined 
in terms of FNA, or a similar situation with FUNC- 
TIONS or GOSUBS. 



NOTE: If the current program was colled by a CHAIN statement, the name of the current program is 
appended to all execution error messages. For example, LOG OF ZERO IN 20 IN TEST.BAK. 
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Table B-3 (Conf) 
Execution Error hAessages 



Message 


Explanation 


%UNDERFLOW IN EXP IN LINE nn 

% UNDERFLOW IN LINE nn 

?VAL ARGUMENT NOT IN CORRECT FORM 
IN LINE nn 

%ZERO TO A NEGATIVE POWER IN LINE nn 


An exponent less than -88.028 has been specified 
for the EXP function. An answer of zero is re- 
turned and the execution continues. ' 

t 

The string argument to the VAL function does not 
represent o legal number. 


t An OVERFLOW error me«oge means tftot on aftempt hoi been mode to create a number lorner in mag~ 
nitude than the largest number reprMentoble in the computer (approximately 1 .7E + 38); when this 
occurs, the largest representoble number is returned (with the correct sign) and execution continues. 
An UNDERFLOW error message means that on attempt has been mode to create a nonzero number 
smaller in magnitude thon the smallest representoble positive number (approximately 1 .4E - 39); in 
this cose, zero is returned and execution continues. Division by zero is considered overflow; the 
largest representoble positive number is returned. 


NOTE: If the current program was called by a CHAIN statement, the name of the current progrom is 
appended to all execution error messages. For example, LOG OF ZERO IN 20 IN TEST.BAK. 
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APPENDIX C 

TAPE AND KEY COMMANDS 



The TAPE and KEY commands are designed for user Teletypes wifh attached paper-tape readers; for 
example, the LT33B shown in Figure C-1 . 




LOCK ON 



START 



STOP 
FREE 



OFF 
LINE O LOCAL 



Figure C-1 LT33B Teletype 
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C.l KEY AND TAPE MODES 

KEY mode is produced by typing the KEY command to BASIC. In this mode, the user types input to 
BASIC on the keyboard in the normal manner. KEY mode is also the default mode. 

TAPE mode is produced by typing the TAPE command to BASIC. The user initiates this mode whenever 
he wants to input from the paper tape reader while the Teletype is in LINE mode. 

C.2 PREPARING AN INPUT TAPE IN LOCAL MODE 

The following procedure should be followed for preparing an input tape. 

Step Procedure 

1 Turn the Teletype control to LOCAL (see Figure C-1). 

2 Feed blank tape into the punch. 

3 Depress the LOCK "ON " control . 

4 Generate the leader tape by doing the following: 

a. Depress the SPACE bar several times. 

b. Depress the RETURN key once. 

c. Depress the LINE FEED key once. 

5 Type on the keyboard the commands and statements to be punched on the 
tape. 

a. At the end of each line, type both the RETURN and LINE 
FEED keys. 

b. If an incorrect character is typed, do the following: 

(1) Depress the BACKSPACE control 

(2) Depress the RUBOUT key. 

(3) Type the correct character. 

c. A TAB is received correctly when typed, even though the 
Teletype typewheel moves only one position to the right 
when TAB is typed. 

d. Any normal input to BASIC can be punched on the tape. 
A typical example is as foljows: 

NEW 

TEST4 

5 PRINT 'THIS IS A TEST" 

10 END 

LIS 

RUNNH 

6 Generate a trailer tape by doing the following: 

a. Depress the SPACE bar several times. 

b. Depress the RETURN key once. 

c. Depress the LINE FEED key once. 
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Sfep Procedure 

7 Depress fhe UNLOCK control . 

8 Renxjve fhe tope from the punch. 

9 Depress the CTRL and T keys simultaneously. 



C.3 SAVING AN EXISTING PROGRAM ON TAPE 

The following procedure should be performed to save an existing program on tape. 

Step Procedure 

1 Turn the Teletype control to LINE. 

2 Depress the LOCK "ON " control . 

3 Generate a leader tape by doing the following: 

a. Depres the SPACE bar several times. 

b. Depress the RETURN key once. 

4 Turn the Teletype control to LOCAL. 

5 Deprea the UNLOCK control. 

6 Depress the CTRL and T keys simultaneously. 

7 Turn the Teletype control to LINE. 

8 Type the LISTNH command, but do not depress the RETURN key. 

9 Depress the LOCK "ON" control. 

10 Depress the RETURN key. 

1 1 Wait until the program has been listed and the READY message has been 
typed. 

NOTE 

The tape will contain not only your program but also an 
extra line at the end with the READY message on it. 
This is not important. Since READY is not a legal com- 
mand, it will simply produce a WHAT? error message 
when the tape is input to BASIC, and then it will be 
igrK>red. 

12 Generate a trailer tape by doing the following: 

a. Depress the SPACE bar severol times. 

b. Depress the RETURN key once. 

13 Turn the Teletype control to LOCAL. 

14 Depress the UNLOCK control. 

15 Remove the tape from the punch. 

16 Depress the CTRL and T keys simultaneously, 

17 Turn the Teletype control to LINE; now you are back in BASIC. 
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Step FVocedure 

18 To stop the tape output while the program is being listed, do the following: 

a. Depress the UNLOCK control. 

b. Depress the CTRL and T keys simultaneously. 

c. Twice depress the CTRL and C keys simultaneously. 

C.4 INPUniNG TO BASIC FROM THE READER 

The following procedure should be followed for inputting to BASIC from the reader. 

Step FVocedure 

1 Turn the Teletype control to LINE. 

2 With the reader control on STOP (see Figure C-1), position the tape on 
the sprocket wheel and close the tape retainer cover. 

3 Type the command TAPE to BASIC. 

4 Depress the RETURN key. 

5 When BASIC answers READY, set the reader control to START. 

6 When the tope has been read in, set the reader control to STOP. 

7 Type KEY. 

8 Depress the RETURN key. 

9 Depress the LINE FEED key. (The Key mode is now restored.) 
10 To stop the tape input while it is in progress, do the following: 

a. Switch the reader control to STOP. 

b. Twice depress the CTRL and C keys simultaneously. 

c. Type KEY. 

d. Depress RETURN. 

e. Depress LINE FEED. 

NOTE 

Do not type on the keyboard without first 
stopping the tape. 

C.5 LISTING AN INPUT TAPE 

An input tape is- listed in the following manner: 

Step FVocedure 

1 Turn the Teletype control to LOCAL. (In LOCAL mode the tope is not in- 

putted to the computer. ) 
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Stap Procedure 

2 Set the reader to STOP . 

3 Put the tope in the reader. 

4 Set the reader to START. (The contents of the tape is then printed on the 
console.) 
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INDEX 



ABS, 1-6, A-5 

Absolute value, 1-6, A-5 

Access fo BASIC, 4-1 

American Standard Code for Information Inter- 
change (ASCII), 8-4 

Apostrophe, 

Format character, 1 1 -9 
Remarks indicator, 6-6 

Arithmetic operations, 1 -5 

ASC function, 8-8, A-6 

ASCII numbers, 8-4 

ATN, 1-6, A-5 

B 

BAS (library), 4-2a, 9-16 

Bugs, 4-7 

BY, 2-2 

BYE, 4-5, 9-19 



C format character, 1 1 -9 

CATALOG, 9-16 

CHAIN, 6-6, A-2 

CHANGE, 8-3, A-5 

CHR$ function, 8-8, A-6 

CLOG, 1-6, A-5 

Comma, 

In image specification, 11-6 
In PRINT statement, 6-1 . 

Concatenation operator (+), 8-7 

Conditional GO TO 
see IF-THEN 

Constants 

see numbers 

Control commands, 9-1 

COPIES Switch (QUEUE), 9-6 

COPY, 9-1 1 



C (Cont) 

Correcting a BASIC program, 4-3, 4-4 
COS, 1-6, A-5 
COT, 1-6, A-5 
Creating a file, 9-1 
+C, 4-4, 9-12 



DATA, 1-2, 1-9, 8-2, A-1 

Data block, 1-8, 8-3 

Data file capability, 10-1, A-3 

Debugging, 4-7 

Decimal image specification, 11-5 

DEF, 5-4, A-6 

Defined function, 5-4, A-6 

DELETE, 9-7 

DET, 7-6, A-5 

Define names, 4-2a 

Diagnostic messages, B-1 

DIM, 3-2, 3-4, 7-2, A-2 

DIMENSION, 3-2, 3-4, 7-2, A-2 

Dimensioning, 3-2, 3-4, 7-2, 7-3 



E format character, 1 1 -9 

Edit commands, 9-1 , 9-7 

Edited numeric image specifications, 1 1 -6 

END, 1-3, 1-12, A-2 

Entering a BASIC program, 4-3, 4-5, 9-1 

Errors 

grammatical, 4-6 
logical, 4-6 

Executing a BASIC program, 4-4, 9-12 

EXP, 1-6, A-5 

Extensions (filename), 4-2a 
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FILE, 10-4, A-3 

Fil«nam«, 4-2o 

FILES, 10-4, A-3 

Creating, 9-1 
Editing, 9-7 
Lifting, 9-5 
Saving, 9-10 
Tronif«rrlng, 9-10 

Floating dollar ${gn, 11-8 

FNEND, 5-4 

FOR, 2r2, A-1 

Formot ch o roctfi, 1 1 -3 
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Inputting from Paper-Tape Reader, C-4 

INSTR function, 8-12, A-6 

INT, 5-1, A-5 

Integer function, 5-1, A-5 

Integer image specification, 1 1 -4 

Interrupting execution of a BASIC program, 
4-4 



KEY, 9-18, C-1 
KEY Mode, C-2 



Gaining Access to BASIC, 4-1 
GOODBYE, 4-5, 9-19 
GOSUB, 5-5, A-2 
GOTO, 1-3, 1-11, A-1 



H 



HELP, 4-1, 9-17 
Hilbert matrix, 7 "7 



Identity matrix, 7-2, A-3 

IF END, 10-18, A-4 

IF-THEN, 1-2, 1-11, 8-2, 8-3, A-1 

Image specifications, 1 1 -3 

Image statement, 1 1 -2 

INPUT, 6-4, A-2 

data file, 10-7, A-4 

Input/output channels, 10-1 

Input Tape, C-2 
listing on, C-4 



L formot character, 1 1 -9 

Leading asterisk, 1 1 -7 

Leaving the computer, 4-5 

LEFTS function, 8-10, A-6 

LEN function, 8-7, A-6 

LENGTH, 9-18 

LET, 1-2, 1-8, A-1 

LIMIT Switch (QUEUE), 9-6 

Line-numbered file, 10-1, 9-3 

Line numbers, 1-2, 1-4, 4-3, 9-7, 9-8 

LIST, 9-5 

LIST REVERSE, 9-5 

Lists, 3-1, 3-4 

LN, 1-6, A-5 

LOC function, 10-11, A-5 

LOF function, 10-11, A-5 

LOG, 1-6, A-5 

LOGE, 1-6, A-5 

LOG 10, 1-6, A-5 

Loops, 2-1 

nested, 2-5 
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L (Conf) 
LT33B Teiefypc, C-1 

M 

MARGIN, 6-8, 10-15, A-2, A-4 

MARGIN ALL, 10-15, A-4 

Mathemafical Funcfions, 1 -6, A-5 

Matrices, 7-1 

MAT B = A, 7-5, A-3 
MAT C = A + B, 7-5, A-3 
MAT C = A - B, 7-5, A-3 
MAT C = A * B, 7-5, A-3 
MAT C^ CON, 7-2, A-3 
MAT C = IDN, 7-2, A-3 
MAT C = INV(A), 7-6, A-3 
MAT C = (K) * A, 7-5, A-3 
MATC =TRN(A), 7-5, A-3 
MAT C = ZER, 7-2, A-3 
MAT INPUT, 7-4, 8-2, A-3 
MAT PRINT, 7-3, 8-2, A-3 
MAT READ, 7-1 , 8-2, A-3 

MID$ function, 8-10, A-6 

MONITOR, 4-5, 9-13 

Monitor commands, 9-14 
Monitor mode, 9-13 

N 

Natural logarithm, 1-6, A-5 
N-dimensional arrays, simulation of, l"? 
Nested Loops, 2-4 
NEW, 4-1, 9-2 
NEXT, 2-2, 2-3, A-1 
Nonline-numbered files, 10-1 
NONAME, default to, 9-3 
NOPAGE, 6-8, 10-16, A-2, A-4 
NOPAGE ALL, 10-16, A-2 
NOQUOTE, 10-13, A-2, A-4 
NOQUOTE ALL, 10-13, A-4 
NUM, 7-4, 8-2, A-5 
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